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Leve um computador pessoal da Prológica 

e ganhe grátis algumas horas a mais por dia. 


m Prológica ou 
um de seus revendedores 
as infinitas utilidades 
CP 500. 

peça uma demonstração do 
PROCALC um programa desenvolvido 
pela Prológica para o CP 500 fornecer 
informações gerenciais tais como: projeção 
de vendas, análise financeira, fluxo de 
caixa, controle de projetos e até 
planejamento de despesas domésticas, etc. 

PROLOGICA 

microcomputadores 


Av. E ng° Luiz Carlos B errini, 1 168 
Telex (011) 30366 - LOGI BR - SP 
Te/s.: 531-8822 


O CP 500 
da Prológica põe 
a informática ao 
alcance dos executivos, 
profissionais liberais, 
estudantes e da família. 

Ele é um microcomputador 
de custo acessível e com a 
capacidade equivalente à dos 
grandes computadores de ontem. 

Você não imagina a variedade de 
tarefas que ele pode executar. 

E além de economizar o seu tempo, 
o CP 500 tem uma outra vantagem: 
ele não erra. 

Errar é fiumano e esse direito não foi dado 
ao computador. 


Características Técnicas 

• CPU: Microprocessador Z80 

• Memória: 4 8Kb RAM, 16Kb ROM 

• Vídeo 12" 16 linhas x 64 ou 32 col. 

• Teclados alfanumérico e numérico 
reduzidos com um total de 65 teclas 

• Até 2 unidades de discos flexíveis 
de 5 1/4" no próprio gabinete, com 
expansão de mais 2 unidades externas 

• Interface paralela, acessório opcional: 
Serial - RS 232 C 

• Bos/c nível 111 • Som 


AL - Maceió - 221-4851 - AM - Manaus - 234-1045 - BA - Salvador - 247-8951 - 235-4184 - CE - Fortaleza - 226-0871 - 231-1295 - 226-4922 DF Brasília - 226-1523 - 273-2128 - 225-4534 - 226-4327 - 
242-6344 - ES - Vitória - 229-1387 - 222-5811 CO - Goiânia - 224-7098 - 225-8598 - 224-4657 - MA - São Luís - 222-6696 - MT - Cuiabá - 321-2307 - MS - Campo Grande - 383-1277 - Doaraãos - 
421-1052 - MG - Belo Horizonte - 201-7555 - 226-6336 - 225-3305 - 222-3196 - 227-0881 - Botim - 531-3806 - Col. F abriciano - 841-3400 - lutz de F ora - 212-9075 - Uberlândia - 235-1099 - 235-6600 - Viçosa ■ 
891-2445 - PA - Belém - 228-0011 - PB - loão Pessoa - 221-8232 - 221-6743 - PR - Curitiba - 224-5616 - 243-1731 - 224-3422 - 223-2323 - 232-2793 - Ponta Grossa - 24-0057 - PE - Recife - 221-0142 - 
221-5774 - PI - T eresina - 222-0186 - RJ - Campos - 22-3714 - Rio de laneiro - 264-5797 - 221-5141 - 240-1099 - 266-4499 - 253-3395 - 252-2050 - RN - Natal - 222-3212 - RS - Caxias do Sul - 221-3516 - 
Gravataí - 88-1023 - Novo Hamburgo - 93-1922 - Porto Alegre - 26-8246 - 42-0908 - 27-2255 - 21-4189 - Sta Maria - 221-7120 - RO - Porto Velho - 221-2656 - SP - Araçatuba - 23-8021 - Assis - 22-1797 - 
22-2200 - Barretos - 22-6411 - Campinas - 2-4483 - 32-4145 -1 undiat - 434-0222 - Marília - 33-5099 - Mogi das Cruzes - 469-6640 - 468-3779 - M ogi Guaçu - 61-0256 - Piracicaba - 33-1470 - Presidente Prudente - 
22-3165 - Ribeirão Preto - 625-5924 - 625-5926 - 635-1195 - São I oaguim da Barra - 728-2472 - São José dos Campos - 23-3752 - 22-7311 - São losí do Rio Preto - 32-2842 - Santos - 33-2230 - Sorocaba - 
33-7794 - SC - Blumenau - 22-6277 - Campos Novos - 44-0196 - Criciúma - 33-1436 - Florianópolis - 22-9622 - 22-6757 - lta/aí- 44-1 524 - loinvüe - 33-7520 - Rio do Sul - 22-0557 - SE - Aracaju - 224-1310 

* CP500. 0 micro pessoal mais vendido do Brasil. 
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Neste número de Geração Prológica estamos publicando matéria 
sobre o Centro Tecnológico para a Informática (CTI). Para elaborá-la 
conversamos com o diretor-geral do órgão, sr. José Rubens Dória Porto, 
que nos falou sobre as realizações e metas do CTI. O órgão, além de fruto 
da Política Nacional de Informática, é um dos pólos propulsores da 
inteligência nacional na área de informática. Por seu peso e atualidade, 
temos a certeza de que este assunto interessa não só aos especialistas da 
área como a todos os usuários de informática. 

Dentro do espaço dedicado ao software, estamos veiculando 
programa do leitor Giuliano Occhini, que desenvolveu uma mala direta 
simples e eficiente, de grande utilidade para os usuários do CP 500. 
Estamos também publicando outros aplicativos e jogos criativos, como o 
Micromelodia, capaz de gerar até 12 frases musicais no CP 300 ou CP 
500. 

Um assunto que também gostaríamos de comentar aqui se refere à 
quantidade de pedidos de assinatura que estamos recebendo. Já no terceiro 
número, Geração Prológica possuía mais de mil assinantes. É por esta 
significativa adesão da comunidade de usuários, pela colaboração que 
todos vêm dando à nossa revista que, a partir de maio, duplicaremos o 
número de nossas páginas. Ampliaremos assim não só o espaço dedicado 
às matérias referentes à área, as dicas, mas também o volume de 
aplicativos e jogos. 

Embasados na quantidade de assinaturas, cartas e programas que 
recebemos diariamente podemos afirmar que Geração Prológica vem 
conquistando seu espaço, levando informações úteis a todos aqueles que 
em nós confiaram e a todos aqueles que vierem a conhecer nosso trabalho. 

Carlos Roberto A. Gauch 
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Recebi com muito agrado a 
resposta que os srs. deram à 
minha carta, solicitando uma 
assinatura desta revista. 
Aproveito a oportunidade para 
fazer as seguintes consultas: 

1 — Com meu CP 300 posso 
carregar um programa System? 

2 — Como trocar um programa 
de CP 200 para CP 300? 

3 — Quando executo o programa 
Caçada ao Porco (GPN°2) 
aparece na tela “UL” na linha 60, 
por quê? 

Carlos Roberto Weiskal 
Santa Fé — Argentina 


Prezado Carlos Roberto, 
para carregar jogos em 
linguagem de máquina (System) 
quando aparecer a mensagem 
READY, digite System e 
pressione ENTER. Serão 
exibidos na tela um asterisco e 
um ponto de interrogação. Digite 
então o nome do jogo, como no 
exemplo: 

*? ATTACK 

e tecle ENTER. Quando 
novamente aparecer o asterisco 
e o ponto de interrogação, digite 
uma barra (/) e ENTER para 
começar a jogar. 

Para transformar um 
programa de CP 200 para CP 300 
é necessário que você conheça o 
Basic de ambos os micros, pois 
existem algumas diferenças. 

Com relação à sua última dúvida, 
informamos que “UL”significa 
“linha indefinida”. Na linha 60do 
jogo Caçada ao Porco não existe 
erro. Por este motivo, verifique 
se você a digitou corretamente. 
Qualquer dúvida, volte a nos 
escrever\ _ 



Possuo um CP 500 com um 
driver. Gostaria de entrar em 
contato com outros usuários 
desse equipamento ou 
equivalentes, para troca de 
informações. 

Décio Yokota 
São Paulo — SP 

O endereço de Décio é r. 
Moncorvo Filho, 77, São Paulo 
\JSP), CEP.: 05507. _ 


A 


Tenho um CP 500 com um 
disco e impressora P 700 e sou 
assinante desta revista. Lendo a 
seção de Cartas da GP n° 3, 
observei que um leitor solicitava 
informações sobre como gravar 
em disco o programa Cadastro 
de Clientes (GP n° 2 ), no que foi 
atendido. Como sou novato e 
estou aprendendo a lidar com o 
micro, pergunto se seria possível 
os srs. publicarem dicas sobre a 
gravação do mesmo programa 
em disco, mas na forma de 
entrada aleatória e não 
seqüencial. Sugiro também a 
publicação de outros aplicativos 
para o CP 500. 

José F. da Silva Filho 

Campinas, SP 

Caro José, para gravação na 
forma de entrada aleatória 
consulte o Programa do Usuário 
deste número de Geração 
Prológica (pág.17), onde constam 
as informações que você 
necessita, e que por 
coincidência é um aplicativo 
para o CP500. Qualquer dúvida, 
volte a nos escrever. 


Assim que soube da 
chegada no mercado desta 
revista, analisei-a 
demoradamente. No meu 
entender, Geração Prológica é 
uma publicação interessante e 
abrangente. Além disso ela é, 
sem dúvida, uma excelente 
iniciativa da empresa, 
proporcionando aos usuários 
dos produtos Prológica um 
melhor e mais qualificado 
atendimento. 

Gostaria que vocês me 
informassem se Geração 
Prológica será comercializada 
em bancas de jornal. Se não, 
como devo proceder para 
tornar-me assinante desta 
publicação? 

Alessandro Sales 
Fortaleza -CE 

Caro Alessandro, agradecemos 
os elogios e esperamos contar 
sempre com sua atenção. Com 
relação à assinatura de nossa 
revista, basta que você preencha 
o cartão Resposta Comercial 
(veiculada a cada n° deGP), e o 
envie para nós acompanhado de 
um cheque nominal, cruzado, no 
^ va/or de Cr# 2 mil e 500. _ 

Gostaríamos de 
parabenizá-los pela publicação 
de Geração Prológica, que está 
nos ajudando bastante a 
entender nossos micros. 
Aproveitamos também para 
solicitar a publicação de artigos 

e programas sobre a área de 
Engenharia Civil. 

Prosys - Processamento de 

Dados 

Jaboticabal — SP 

Caros amigos, anotamos a 
sugestão que vocês nos fazem. 
Assim que for possível, 
estaremos publicando 
programas e artigos que 
atendam à área de Engenharia 
Civil. Aguardem. 
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w° n< íüis?a3 Uín â Vocè 

f^\ P ^Vs%^os 
^colhx n A J e ^uir 


Modelo: CP 300/CP 500 
48 K RAM 


10 '********************#****** 


20 

'* 

R R L 1 

* 

30 

40 

y * 

• * 

PROLOGICR 

CP-300 / CP-50Q 

* 

* 


50 **************************** 
60 CLEAR 200:RRNDOM:0=0:Q$="" 

70 LC=.45:RC=1-LC 


320 IF PEEK (ZC >=B RND PEEK(ZP)=B THE 
N POKE ZC,Cl:P0KEZP,C2sGOTO 270 
330 FOR J=1 TO 8:Q*=INKEY*:P0KE ZC,B 
• POKEZP,B:FOR K=1 TO 50 
340 NEXTsPOKE ZC,Cl:POKE ZP,C2:F0R K 
= 1 TO 50sNEXT : NEXT 

350 M=H*5:T=T+M: PRINT :PRINT"VOCE CON 


30 LS*=CHR* <191)+CHR*(32):RS*=CHR*(3 
2)+CHR$ <191) 

90 L*=",":R*="." 

100 LT*=CHR$ < 184 ) +CHR* (135 ) :RT*=CHR$ 
(139)+CHR*(ISO) 

110 B=32:EL=2:ER=58:Cl=175:C2=159:DE 

FINT V,W 

120 GOSUB 610 

130 PRINT :T=0:N=0 

140 FORI=i TO 100:NEXTI:CLSSPRINT:PR 
INT:PRINT:PRINT:PRINT@S*64+10,"LflRGU 
RR DR ESTRRDR (4-15)":PRINT©9*64+10, 
STRING$(25,131)::PRINT@8*64+35,;:INP 
UT W 

150 IF W<4 OR W>15 THEN 130 
160 CLSsPRINTÊ5*64+10,"CONDICOES DE 
VISIBILIDADE":PRINT@6*64+10,STRING*( 
25,131) 

170 PRINT" 1 - PÉSSIMA" 

180 PRINT" 2 - RUIM" 

190 PRINT" 3 - DISCRETA" 

200 PRINT" 4 - BOR"SPRINT 

210 PRINT@14*64+10,"VISIBILIDRDE ( 
1-4)":PRINT©15*64+10,STRING*(20,131) 


SEGUIU FAZER";Mj"QUILÔMETROS EM UM": 
PRINT"TOTRL DE";Ts"QUILÔMETROS EM";N 
;"DIRS"SPRINT 

360 PRINT"TOTRL DE";T;"QUILÔMETROS E 
M";N;"DIRS"; 

370 IF N=1 THEN PRINT"0"ELSE PRINT"I 

II 

380 PRINT" TECLE 'C' PRRR CONTINUAR" 
390 PRINT" TECLE R PRRR RECOMECRR" 
400 PRINT" TECLE R' PRRR RBRNDONRR" 
410 Q*=INKEY*:IF Q*="C" THEN 230 
420 IF Q$<>"R" RND Q*<>"R" THEN 410 

430 PRINT:PRINT"MEDIfl DE ";T/N;"OUIL 
OMETROS RO DIR" 

440 IF Q*="R" THEN 130 
450 END 

460 PRINTTRB(L);RS*;TRB(R);LS$ 

470 RETURN 

480 PRINTTRB(L);LT*;TRB(R-l);LT* 

490 L=L-1:R=R-1:RETURN 

500 PRINTTRB (L+l) ;RT*;TRB.(R) ;RT* 

510 L=L+l:R=R+l:RETURN 


640 GOSUB 460 
650 GOSUB 500 

660 FOR J=1 TO 2:GOSUB 480 sNEXT 
670 FOR J=1 TO 10:GOSUB 500 sNEXT 
680 P=15383sPOKEP,ClsPOKEP+1,C2 
690 FOR J=1 TO 500sNEXT 
700 P=P+65:GOSUB 750 

710 FOR J=1 TO 2:P=P+63:GOSUB 750 : 

NEXT 

720 P=P+65:GOSUB 750 

730 FOR J=1 TO 9:P=P+65:GOSUB 750 

740 POKE P,D(J)sPOKE P+1,B:NEXT 

750 POKE P,C1sPOKEP+l,C2:F0RK=1 TO 5 

O:NEXT:RETURN 


BASIC 


Cursos para 
crianças e adultos. 

Crianças: tarde e noite 
Adultos: noite. 

Serão utilizados 
Microcomputadores CP 500 
da Prológica com 
1 microcomputador 
para cada 2 alunos. 

Duração: 40 horas. 

No final do curso 
serão dados 
diplomas de freqüência. 

INSCRIÇÕES ABERTAS 

INSTITUTO Colaboração 

ITALIANO an 

EUGÊNIO « 

MONTALE ■■ 

. . „ coo PROLOGICA 

Av. Angélica, 688 microconiputa<JOfes 

Fone: 66.9199 


;:PRINT@14*64+31,;slNPUT V 

220 IF V<1 QR V>4 THEN 

230 N=N+1:L=24s R=L+W+2:2=16384-128*0 

240 C=INT<(L+R)/2) SH=0 

250 FOR J=1 TO 16:Q$=INKEY*sGOSUB 46 

0 SNEXT 

260 GOSUB 520 

270 H=H+1SQ=RND(0)SIF Q>RC RND R<ER 
THEN GOSUB 500 sGOTO 300 
280 IF CKLC RND L>EL THEN GOSUB 480 
sGOTO 300 
290 GOSUB 460 

300 ZC=Z+C:ZP=ZC+1SQ*=INKEY*:IF Q*=L 

* THEN C=C-1 

310 IF Q*=R$ THEN C=C+1 


520 P=Z+CsGOSUB 750 :P=Z+C-15360-20 

530 Q*=CHR$(191)+CHR*(B)+"0"+CHR*(B) 
+CHR$(191) 

540 P=P-320sPRINT@P,STRING*(5,176); 
550 FOR J=1 TO 5:P=P+64:PRINT@P,Q»;: 
NEXT 

560 PRINTÔP+64,STRINGt(5,131); 

570 F0RJ=1 TO 600sNEXT 

580 FOR J=4 TO 0 STEP-lsFOR K=1 TO 3 

00SNEXT 

590 PRINT©P+2-64*J,CHR*(143);:NEXT:P 
RINT©896,CHR$ (B) 

600 RETURN 

610 DIM D(9)sL=18sR=28:CLS 

620 FOR J=1 TO 9SRERD D(J)sNEXT 

630 DRTR 32,82,65,76,76,89,32,32,32 





















Conhecendo 
os CPs 

Interface RS 232C 


Neste segundo artigo de Ivanildo 
Miranda sobre a Interface RS 232C 
descubra como são programados os 
diveros parâmetros da UART(Universal 
Assyncronus Receiver Transmitter). 


No último número de Geração Prológica (GP 3 ), explica¬ 
mos que existem posições de memória que contêm os vários 
parâmetros de programação de velocidade, número de .stop 
bits, paridade e outros, além de abordarmos superficialmente 
a UART. Para que esses parâmetros passem para a UART, a 
CPU utiliza instruções do tipo OUT. Vejamos agora como é 
feita a programação da velocidade. 

Voltando ao exemplo do número anterior, vamos supor 
que queremos programar a velocidade de recepção e transmis¬ 
são em 300 bauds. Para isto, usamos a instrução POKE 
16888,85. Vamos também programar a paridade par, o número 
de bits em 7 e o número de stop bits igual a 1. Temos então que 
executar a instrução POKE 16889,X — onde X é igual a: 
(paridade * 128) + (n° bits * 32) + (stop bits * 16) ■+■ (hab. 
paridade * 8) + (transmissão * 4) ■+■ (DTR * 2) + RST. 

Os diversos códigos para paridade, número de bits, stop 
bits, etc., podem ser conseguidos na página 29 de seu Manual 
de Basic. Em nosso caso os códigos são: Paridade = 1; n° bits = 
2; n° stop bits = 0; hab. paridade = 1. 

Transmissão é um código que serve para ligar ou desligar 
a RS 232C. Aqui, vamos deixá-la ligada. DTR e RTS se 
referem aos sinais Data Terminal Ready e Request To Send. 
Através dessas duas chaves podemos fazer com que os sinais 
RTS e DTR fiquem em nível lógico baixo ou alto. No caso, 
fazendo com que ambos fiquem em nível baixo, teremos: 
Transmissão — 0; DTR = 0 e RTS = 0. 

Efetuando os cálculos, obteremos X = 200. Observe que os 
fatores de multiplicação são todos potências de 2 (128=2 7 ;32= 
2&; 16 = 2 4 ; 8 = 23; 4 = 22; 2 = 2!; 1 = 2^). Isto se deve ao fato de o 
CP 500 trabalhar com números binários e palavras de 8 bits. 
Mas, se é assim, por que está faltando o fator 64 (2®)? É 
simples. O código que programa o número de bits tem quatro 
diferentes opções (5, 6, 7 e 8 bits), ocupando duas posições. 
Assim, no endereço 16889 da memória do CP 500, o número 
ficará gravado como: 


Bits 

D7 

D6 

D5 

D4 

D3 

D2 

Dl 

D0 


7 

6 


4 

3 

2 

1 

n 0 

Peso 

2 

2 

2 

2 

2 

2 

2 

2 

Valor 

1 

1 

0 

0 

1 

0 

0 

0 


D6 e D5 programam o tamanho da palavra em 7 bits (10 é 
igual a 2 na base decimal e 2 é o código para 7 bits). 

No momento de programar a RS 232C, o CP 500 através de 
uma rotina de EPROM, chamada $ RSINIT que inicia no 
endereço 5AH (90 decimal), fará com que a CPU leve o valor 
das posições correspondentes à programação da RS 232C e 
através de instruções OUT carregue esses valores na UART ou 
no gerador de Baud Rate. O gerador de Baud Rate é um 
circuito que gera freqüência de clock para que a UART 
trabalhe. Esse circuito pode gerar freqüências para diversas 
velocidades de transmissão e recepção, conforme a tabela 
abaixo: 


Codigo decimal 

Codigo binário 

Velocidade 


D 

C 

B 

A 

Bauds 

0 

0 

0 

0 

0 

50 

1 

0 

0 

0 

1 

75 

2 

0 

0 

1 

0 

110 

3 

0 

0 

1 

1 

134,5 

4 

0 

1 

0 

0 

150 

5 

0 

1 

0 

1 

300 

6 

0 

1 

1 

0 

600 

7 

0 

1 

1 

1 

1200 

8 

1 

0 

0 

0 

1800 

9 

1 

0 

0 

1 

2000 

10 

1 

0 

1 

0 

2400 

11 

1 

0 

1 

1 

3600 

12 

1 

1 

0 

0 

4800 

13 

1 

1 

0 

1 

7200 

14 

1 

1 

1 

0 

9600 

15 

1 

1 

1 

1 

19200 


Como você pôde observar, são usados 4 bits para progra¬ 
mar a velocidade de recepção ou transmissão da RS 232C. Por 
esse motivo só existem 16 velocidades de transmissão (2 4 = 
16). Mas, como você deve ter notado, é possível programar as 
velocidades de recepção ou transmissão com valores diferen¬ 
tes. Isto é possível porque o gerador de Baud Rate na 
realidade gera duas freqüências: uma para recepção e outra 
para transmissão. Para isso, a palavra que programa o gerador 
é composta de oito bits, sendo os 4 mais significativos corres¬ 
pondentes à freqüência de transmissão. Para a velocidade de 
transmissão igual a 1200 bauds e velocidade de recepção igual 
a 600 bauds, teríamos o seguinte gravado na posição 16888 da 
memória: 


D7 

D6 

D5 

D4 

D3 

D2 

Dl 

D0 

0 

1 

1 

1 

0 

1 

1 

0 


Observe que esse valor em decimal é 118, exatamente o 
valor que se obteria efetuando-se o cálculo descrito na página 
28 do Manual de Basic. 

Finalizando, vamos ver como funciona o status da UART. 
Assim como o status do modem, no status da UART cada bit 
corresponde a uma determinada condição, de acordo com a 
tabela abaixo: 


D7 - Indica que foi recebido ura dado 

1)6 - Indica que podem scr enviados mais dados para a UART 

D5 - Indica que foram perdidos dados 

D4 - Indica erro de protocolo 

D3 - Indica erro de paridade 

D2 - Nao usado 

Dl - Nao usado 

DO - Nao usado 


Logo, se efetuarmos a instrução X = IN (234) e o valor de X 
for igual a 184, basta converter para binário para sabermos o 
que ocorreu: 


D7 

D6 

D5 

D4 

D3 

D2 

Dl 

D0 

1 

0 

1 

1 

1 

0 

0 

0 


Com o auxílio da tabela anterior, vimos que foi recebido 
um dado (D7=l); que foram perdidos dados (D5=l); que houve 
erro de protocolo (D4=l) e que houve erro de paridade. 

Ref. M 430 
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Nesta seção, pequenas notas sobre a área de informática 


Acessórios CP 300 


A partir deste mês de abril a 
Prológica passa a comercializar o 
Sistema Mestre 300, um acessório 
ipara o CP 300 que permite o uso 
simultâneo das interfaces Paralela 
300, Serial 300 e do Controlador 300, 
todos recém-lançados. A Paralela 
possibilita ligar o CP 300 a uma 
impressora ou a qualquer outro pe¬ 
riférico que exija esse tipo de sinal. 
Já a Serial é uma interface tipo RS 
232 C para conexão de modems. O 
Controlador 300 permite que o 
usuário controle até quatro unida¬ 
des de disquetes de 5 e 1/4”, cada 
uma com capacidade de 175K. 

Além do Mestre e das interfa¬ 
ces, a Prológica está colocando no 
mercado o D 300, uma unidade de 
disk-driver, o MV 300, monitor de 
vídeo em fósforo verde, o Joystick 
300. Todos e estes acessórios pode¬ 
rão ser encontrados pelo usuário 
nos revendedores Prológica de todo 
o Brasil. Ref. m 431 


VI Congresso Regional 
de Informática 


De 15 a 20 de maio a Sociedade 
dos Usuários de Computadores e 
Equipamentos Subsidiários de 
Santa Catarina (Sucesu-SC), com 0 
apoio da Secretaria Especial de In¬ 
formática (SEI), estará realizando 0 
VI Congresso Regional de Informá¬ 
tica e a III Feira Nacional do setor, 
no Centro de Convenções do Bal¬ 
neário Camboriú, Florianópolis 
(SC). O Congresso foi dividido em 
sessões especiais, técnicas, para 
não-especialistas, estudantes, jo¬ 
vens e crianças, sendo que o preço 
para inscrição no evento varia de 
Cr$ 5 mil e 200 a Cr$ 160 mil. Parti¬ 
cipando da III Feira Nacional de 
Informática, a Prológica apresenta¬ 
rá ao público suas novidades para a 
linha de Computadores Pessoais. 


Maiores informações sobre estes 
eventos na Sucesu-SC, pelo tel.: 
(0482) 22-1344. Ref. m 432 


Computação e 
Programação na FEI 


Computação Gráfica e Progra¬ 
mação: esta é a nova matéria do 
currículo da Faculdade de Enge¬ 
nharia Indústrial (FEI) de São Ber¬ 
nardo do Campo, SP. No dia 15 de 
fevereiro a faculdade inaugurou o 
seu laboratório de Microcomputa- 
ção, onde funcionam 30 micros CP 
300, com 48K de RAM, dois compu¬ 
tadores CP 500 e duas impressoras. 
O laboratório comporta até 420 
usuários, sendo que um instrutor, 
dois professores, 11 monitores e 
uma secretária prestam assistência 
aos estudantes, das 08 às 22 hs. 
Além dos computadores do Labora¬ 
tório de Microeletrônica, a FEI 
comprou mais 15 micros CP 300 
para atendimento nos diversos de¬ 
partamentos da instituição. Ref m 433 


Música Eletrônica 


Ivan Seiler atua em duas áreas 
que à primeira vista podem parecer 
incompatíveis: música e processa¬ 


mento de dados. No entanto, unin¬ 
do a experiência de músico à de 
analista de sistemas, Ivan desen¬ 
volveu um teclado musical, com 
cinco oitavas, que acoplado ao CP 
500 possibilita a criação de frases 
musicais para oito instrumentos e 
memorização de até quatro mil 
controles ou notas. Para se ter 0 
efeito de todos os instrumentos de 
uma única vez, o músico desenvol¬ 
veu um sintetizador, que funciona 
com ou sem o computador. Ivan 
Seiler aceita encomendas de suas 
invenções. Os interessados podem 
encontrá-lo em seu estúdio, r. Aru- 
já, 79, São Paulo, Tel.: (011) 572- 
6317. Ref. M 434 


Prológica 
Patrocina Birigui 


Após cinco anos de ativa parti¬ 
cipação no motociclismo nacional, 
0 piloto paulista José Xavier Soa¬ 
res Neto, o Birigüi, está participan¬ 
do do Campeonato Europeu de Mo¬ 
tociclismo, categoria especial. Biri¬ 
güi é o primeiro piloto brasileiro a 
participar de uma temporada com¬ 
pleta do Campeonato Europeu, que 
se estenderá até outubro, num total 
de 11 corridas. A participação de 
Birigüi neste Campeonato foi viabi¬ 
lizada através do patrocínio da Pro¬ 
lógica Microcomputadores e da em¬ 
presa São Paulo Alpargatas. 

Ref. M 435 
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Sistema Operacional 


o Diretório do DOS 


Como vimos no artigo anterior 
(GP n° 3), o SO grava uma série de 
informações quando formata o dis¬ 
co. O próprio programa de formata¬ 
ção reserva a trilha 17 para a grava¬ 
ção do Diretório, que será construí¬ 
do na medida em que são gravados 
arquivos de programas e/ou dados 
ou copiados de outro disco, isto se 
for usado o programa de cópia de 
disquete (backup). 

O Diretório é uma tabela que 
possui todas as informações de es¬ 
paço disponível, espaço alocado, 
nomes e senhas de cada arquivo, 
etc. Quando usamos o comando 
DIR do sistema operacional, apare¬ 
ce na tela do computador uma lista 
com os nomes de cada arquivo, seu 
tamanho, tipo e tudo a que ele se 
refere. Esta lista é um resumo da¬ 
quilo que está contido no Diretório, 
o qual é dividido em 18 setores de 
256 bytes cada um, sendo que os 
dois primeiros setores possuem ca¬ 
racterísticas diferentes dos outros 
16. 

Tabela de Alocação de Blocos 

O primeiro setor do Diretório é 
uma tabela de alocação de blocos 
(veja figura 1) que contém nos seus 
primeiros bytes as informações so¬ 
bre o espaço livre do disco. Os bytes 
na figura 1 estão mostrados em 
hexadecimal. Observe que do byte 
00 até o 25 os valores são iguais a 
3F, significando que estes blocos 
estão ocupados. 

A senha-mestre do disco tam¬ 
bém está colocada neste setor, nos 
bytes CE e CF (no caso, o código da 
senha é FA17). Nos bytes DO até 
DF estão localizados o nome do 
disquete e a data de criação (forma¬ 
tação) do mesmo. 

Os últimos 32 bytes do setor 
estão reservados para o comando 
AUTO do sistema operacional. Se o 
byte E0 for igual a 0D, como está 
indicado na figura 1, isto significa 
que o comando AUTO não está 
ativado e se for diferente de 0D, 
cada vez que for pressionado o RE- 
SET, será ativada a função AUTO. 

índice de Códigos 

No segundo setor do Diretório 
(figura 2) encontramos outra tabela 
na qual estão indicados os códigos 
de referência dos nomes dos arqui¬ 
vos, isto é: códigos usados pelos 
comandos de manipulação do Dire¬ 
tório que conferem a existência ou 
não de um arquivo. Cada byte do 
setor equivale a um arquivo do Di¬ 
retório. 


Entradas dos Arquivos 

Do terceiro ao décimo oitavo 
setores vamos encontrar as entra- 


Dando continuidade ao 
assunto Sistema 
Operacional, neste número 
de Geração Prológica Luiz 
Antonio Borba aborda o 
Diretório, tabela 
construída na medida em 
que os arquivos são 
gravados ou copiados de 
outro disco. 


das dos arquivos, ou seja, os nomes, 
suas posições no disco, senhas, etc. 
Cada arquivo pode utilizar até 


48 bytes de informações na sua 
posição do Diretório. Observe que 
para cada nome que aparece no 
canto direito da figura 3 existem 
mais duas linhas em branco que 
poderão eventualmente ser usadas 
pelo sistema operacional para ar¬ 
quivos que não caibam em apenas 
uma extensão (falaremos das ex¬ 
tensões no próximo número de Ge¬ 
ração Prológica). 

A partir do byte de número 4 
(não se esqueça que a numeração se 
inicia com zero) está gravado o no¬ 
me do arquivo e sua extensão (onze 
bytes). Nos bytes 11 e 12 (hexadeci¬ 
mal) está a senha de acesso do 
arquivo. Nos bytes 13 e 14 (ainda 
em hexa) está a senha de atualiza¬ 
ção do arquivo. Os bytes que estão 
em FF são para as futuras ou possí¬ 
veis extensões do arquivo, onde se¬ 
rão gravados os endereços e tama¬ 
nhos da extensão. R«f. m 436 
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A 

00 

3F3F 

3F3F 

3F3F 

3F3F 

3F3F 

3F3F 

3F3F 

3F3F 




10 

3F3F 

3F3F 

3F3F 

3F3F 

3F3F 

3F3F 

3F3F 

3F3F 




20 

3F3F 

3F3F 

3F3F 

0700 

0000 

0000 

0000 

0000 

'? r ? r ?'? r ? r ? . 



30 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 




40 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 




50 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 




60 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 




70 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 




80 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 




90 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 




RO 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 




BO 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 



K 

CO 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

FR17 



o 

DO 

444F 

5335 

3030 

2020 

3131 

2F31 

312F 

3131 

D0S500..11/11/11 


£ 

EO 

0D20 

2020 

2020 

2020 

2020 

2020 

2020 

2020 




FO 

2020 

2020 

2020 

2020 

2020 

2020 

2020 

2020 




00 

0E29 

C444 

C343 

C444 

47C1 

C3C2 

52R0 

R6BE 

.).D.C.DG...R.•. 



10 

B728 

2801 

D200 

0000 

0000 

0000 

0+00 

0000 

. ( (. 



20 

0000 

0000 

0000 

0000 

ÓOOO 

0000 

0000 

0000 




30 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 




40 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 




50 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 




60 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 




70 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 




80 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 




90 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 




no 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 




BO 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 



B 

CO 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 



o 

DO 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 



a 

EO 

0500 

0210 

4210 

8310 

RUO 

R300 

0612 

4601 




FO 

0613 

0514 

020F 

R414 

420F 

820F 

6115 

FFFF 




00 

100B 

OBOO 

0053 

5320 

2020 

2020 

2043 

4D44 

..... SS.CMD 



10 

EF5C 

EF5C 

3200 

028D 

0564 

FFFF 

FFFF 

FFFF 

o 



20 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 




30 

100B 

OBOO 

0053 

5953 

5445 

4D20 

2043 

544C 

.SYSTEM..CTL 



40 

EF5C 

EF5C 

OFOO 

0625 

FFFF 

FFFF 

FFFF 

FFFF 




50 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 




60 

100B 

OBOO 

0053 

4352 

3136 

2020 

2043 

544C 




70 

EF5C 

EF5C 

ODOO 

0705 

FFFF 

FFFF 

FFFF 

FFFF 




SO 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 




90 

100B 

OBOO 

0053 

4352 

3137 

2020 

2043 

544C 

. SCR17...CTL 



RO 

EF5C 

EF5C 

ODOO 

07R5 

FFFF 

FFFF 

FFFF 

FFFF 




BO 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 



g 

CO 

100B 

OBOO 

0053 

4352 

3138 

2020 

2043 

544C 



O 

DO 

EF5C 

EF5C 

ODOO 

0885 

FFFF 

FFFF 

FFFF 

FFFF 



s 

EO 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 




FO 

5052 

4F4C 

4F47 

4943 

4120 

3139 

3S32 

2020 

PROLOGICfl.1982. . 


\L 
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Micromelodia 


Se você quiser estabelecer um contato de vários graves e agudos com o seu 
micro, divirta-se com este jogo que, além de gerar música no seu CP 300 ou 
CP 500, será um bom exercício para a sua memória. Ao iniciar o programa 
no vídeo aparecerá um painel com 24 letras, que contêm 12 pares de 
músicas. A sua função será encontrar nesse painel as frases musicais que 
se equivalem, sendo que as mesmas mudam de letras a cada partida. 

_ Ref. P 422 

Mõdêíõ: CP 3ÕÕ/CP 5ÕÕ 

48K RAM 


10 '***************************** 

230 F0RI=1T024 s DD ( I ) =6 : NEXTI : IFFL=1T 

20 '* MICRO MELODIR * 

30 '* PROLOGTPQ * 

HEN 260 

V " I IMJL. LIU X wri " 

40 '* CP-300 / CP-500 * 

240 PRINT@969," ******* PRESSIONE < 

50 ' ***************************** 

ENTER>, P/ INICIO ******* "; 

60 CLS s CLERR1000 s DIMSO(12,12,2),SC(2 

250 IF PEEK(14400)<>1THEN250 

4),DD(30) 

260 CLS s PRINTCHR*(23) s PRINTQO,STRING 

70 PRINT@4*64+18,STRING* ( 26, 131 ) sPRI 

*(32,191) ; :PRINT®896,STRING*(32,191 ) 

NTTRB (20 ) "R P R 0 L 0 G I C fl" :F0 

•: FnPT=A4TQ832STEP64 SPRINTQI.CHR*(19 

RX=12T013 s SET (87,X ): NEXTXs PRINT@6*64 

1) ; sPRINT@I+62,CHR*(191 ); sNEXT 

+18,STRING*(26,131 ): :F0RX=18T012STEP 

27Ò N*=" " sPRINT®262,"QUEM E' 0 PRIME 

—ls SET ( 36,X ) sNEXTX 

80 PRINT@8*64+20, " RPRESENT 

0 " sG0SUB1000sfl*=INKEY*slFfl*=""THE 

IRO PLRCRR ?";sG0SUB480 sNl*=N*:N*= 

" " s PRINTÔ598, " " ; ■■ PRINTS262, 

"QUEM E' 0 SEGUNDO PLRCRR ?";sG0SUB 

N80 ELSECLS 

480 s N2*=N*s CLS 

85 CLS s GQSUB900sCLS 

280 S1=0 : S2=0 

90 PRINTSTRING*(24,131 ); “MICRO-MELOD 

290 CLS s PRINTÔ20,"*** MICRO-MELODIR 

IR";sPRINTSTRING*(26,131):PRINT:PRIN 

*■»*" ; 

TSPRINT" ESTE JOGO REQUER MUITO 

OTENCRO, R QUEM DESEJO VENCER!_"s 

300 F0RI=66T0116STEP10sPRINT@I,SQ*;s 

PRINT@I+192,SQ*js PRINT®1+384,SQ*;:PR 



PRINT TRhTh—SE DE Uri PHlNEL Cu n 

INT@I+576,SQ*ssNEXTI 

24 BLOCOS, DENTRO DELES 12 PRRES DE 

310 X=65:F0RI=134T0184STEP10 s PRINTQI 

MUSICRS."SPRINT 

,CHR*(X);s PRINTSI+192,CHR*(X+6);:PRI 

100 PRINT" Hfl' DOIS PLRCRRES INT 

NT®I+384,CHR*(X+12);sPRINT@I+576,CHR 

ERCRLRDOS."s PRINT" TERO QUE RDI 

*(X+18);:X=X+1sNEXTI 

VINHRR OS RESPECTIVOS PRRES RNTES DE 

320 PRINT6897,Nl*;"s";s PRINTQ954-LEN 

SEU RDVER-SRRIO, ISSO SE TIVER BONS 

(N2*),N2*;"S"; 

OUVIDOS. " SPRINT 

330 PRINT6898+LEN(Nl*),SI;sPRINTÔ955 

110 PRINT" CRDR PRR 'IGUAL' TEM 

,S2; 

0 VRLOR DE 2 RTE 10 PONTOS."SPRINTsP 

340 F0RPL=lT02sIFPL=1N*=N1*ELSEN*=N2 

RINTsPRINTTRB(10);"ESPERE UM MOMENTO 

* 

QUE VOU ESCONDER RS MUSICRS 

350 F0RTU=1T02sIFTU=1TU*="1"ELSETU*= 

120 SQ*=CHR*(191)+STRING*(7,131)+CHR 

"2" 

$(191)+CHR*(26)+STRING*(9,24)+CHR*(1 

360 PRINTG975,STRING*(34,32);SPRINT® 

91)+“ "+CHR*(191)+CHR*(26)+STR 

960+((64—(26+LEN(N*)))/2),N*;", QUE 

ING*(9,24)+CHR*(143)+STRING*(7,140)+ 

VRI FRZER fl ";TU*;" TENTRTIVR !"; 

CHR*(143) 

370 Cl*=INKEY*sIFC1*=“"THEN370 ELSE 

130 N0*=" "+CHR*(157)+CHR*(144)+ 

IFRSC (C1*X650RRSC (Cl*) >88THEN370 

" "+CHR*(26)+STRING*(9,24)+" "+ 

380 C1=RSC(Cl*)-64sIFSC(Cl)=0THEN 37 

STRING* (2,176) +CHR* (149) + " " +CHR* ( 

0 

26)+STRING*(9,24)+" "+CHR*(130)+STR 

390 IFTU=2RNDCC=C1THEN370 

ING*(2,143)+CHR*(129)+" 

400 IFCK7Pfl=66:DI=0ELSEIFC1< 13PR=25 

140 Mfl*="*********"+CHR* <26)+STRING* 

8 s DI=6ELSEIFC1<19PR=450 s DI=12ELSEPR= 

(9,24)+"* IGURL *"+CHR*(26)+STRING*( 

642sDI=18 

9,24)+"*********" 

410 PR=PR+(Cl-DI)*10-10 s PRINTSPR-1,N 

150 X X *=""sFOR1=1T029s RERDfl s X X*=X X*+ 

0*;s DD(Cl)=DD(Cl)-1 *IFDD(Cl)=0,DD(Cl 

CHR*(R)SNEXTI 

)=1 

160 POKE167S2,201sIF PEEK (16396)=201 

420 G0SUB560 sIFTU=1CC=C1sPP=Pfl 

THEN P0KE16526,PEEK (VRRPTR(XX*)+1) sP 

430 NEXTTUSIFSC(CC)=SC(Cl)G0SUB580 

0KE16527,PEEK(VRRPTR(XX*)+2) ELSEDEFU 

440 EG=0sF0RI=lT024sEG=EG+SC(I)sNEXT 

SR=PEEK(VRRPTR(XX*)+1)+PEEK(VRRPTR(X 

X*)+2)*256+65536*(PEEK(VRRPTR(XX*)+2 

IsIFEG=OTHEN610 

450 IFSC(CC)=SC(Cl)THEN IFPL=1THEN34 

)>127)s CMD"T" 

0 ELSEIFPL=2THEN350 

170 F0RI=lT012sX=l 

460 PRINTSPR,SQ*;sPRINTSPR+68,CHR*(C 

180 RERDR,B sIFR=ORNDB=OTHENNEXTIs GOT 

1+64);sPRINTSPP,SQ*;SPRINT@PP+68,CHR 

0200 

* (CC+64); 

190 S0(l‘,X,l)=RsS0(I,X,2)=BsX=X+lsG0 

470 NEXTPLsGOTO 340 

T01S0 

480 F0RI=1 TO 10 sIN*=INKEY* s NEXT s CP= 

200 R=RND(30)sIFDD(R)>0THEN2O0 

‘ 598 

210 RERDflSIFR<13,DD(R)=RsGOTO 200 

490 PRINTSCP,CHR*(143);s F0RI=1T010sI 

220 X=1s FGRI=1TQ30sIFDD(I)=ONEXTIELS 

N*=INKEY*sIFIN*<>""THEN 510 ELSENEX 

ESC(X)=DD(I)s X=X+1s NEXTI 

T 
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255,1 

5,255 


,255, 

, 0,0 




500 PRINTQCP," "?:F0RI=1T010:IN*=INK 
EY* sIFIN*< > M "THEN510 ELSENEXT s G0T04 
90 

510 IFIN*=CHR*(8)RNDCP< >598THENPRINT 
ÔCP,“ ";:CP=CP-2 * N*=LEFT* < N*,LEN < N*) 
-1):G0T0490 

520 IFIN*=CHR*(13)THENRETURN 

530 PRINTÔCP,IN*;:CP=CP+2:IFCP=616CP 

=614 

540 IFLEN(N*)<8N*=N*+IN* 

550 G0T0490 

560 X=1sIFSO(SC(Cl),X,1)=ORETURN 
570 P0KE167S3,S0<SC(Cl),X,2):P0KE167 
84,S0(SC(C1>,X,1) :XX=USR(0) :X=X+l:IF 
SO(SC <C1 ) ,X,1)>0THEN570 ELSERETURN 
580 SC(CC)=0 s SC(C1)=0 sIFPL=1,Sl=Si+D 
D(C1)+DD(CC)ELSES2=S2+DD(Cl)+DD(CC) 
590 PRINT@PA,MR* *:PRINT@PP,MR*;:PRIN 
TÔ39B+LEN(Nl*),S1;:PRINTQ955,S2; 

600 RETURN 

610 PRINTG975,STRING*(34,32) ; ':F0RI=1 
T01000 • NEXTI:CLS 

620 IFS1>S2,W*=N1*ELSEIFS2>S1,W*=N2* 
ELSEW*="NO ONE !?" 

630 PRINT CHR*(23):PRINT@0,STRING*(3 
2,"#");:F0RI=64T0832STEP64:PRINT@I," 
##" ; sPRINTÔI+60, "##" ; :NEXT‘.PRINTÔ896 
,STRING* (32, '*#"); 

640 PRINTÊ326, "E 0 VENCEDOR E'";:* 
=362íF0RI=lT05sPRINT@X,".:F0RJ=1T0 
200 s NEXTJs X=X+2:NEXTI 
650 PRINT®474,STRIN6*(9—LEN(W*>,32); 
W*;:IFS1< >S2PRINT"!!!!"; 

66Ò P0KE16783,50:F0RI=255T05STEP-5 s P 
0KE16784,1:XX=USR(O) :NEXT:CLS:IFSK > 
S2THEN690 

670 PRINTQ71,"NOS DESCULPEM MAS .... 

";:PRINT@146," O JOGO TE 

RMINOU...."; 

680 PRINT@192,STRING*(64,140); 

690 PRINTQ345,"P LRCRRES ;";:P 

RINT6409,Nl*; n ;SI;:PRINTQ473,N2*; 

'»_11.02 * 

700 PRINTÔ720,"V0CE GOSTOU? QUER OUT 
RO(S/N) ?“; 

710 YN*=INKEY*:IFYN*< > " S "RNDYN*<>"N" 
THEN710 

720 IF YN*="N"THEN CLS:END 

730 PRINTQ856,"UM MOMENTO.";:RE 

STORE:F0RI=1T0241:RERDX:NEXTI 

740 FL=is FORI=1T030:DD(I)=0:NEXTI:GO 

T0200 

750 DRTR221,33,143,65,221,78,0,221,7 

0,1,62,1,211,255,16,254,221,70,1,62, 

2,211,255,16,254,13,32,235,201 

760 DRTR150,120,150,120,130,255,150, 

200,110,255,120,240,0,0 

770 DRTR150,120,150,120,130,150,120, 

120,150,130,120,120,130,200,0,0 

780 DRTR150,240,150,240,150,100,130, 
130,120,255,120,100,130,80,120,120,1 
10,120,100,205,0,0 

790 DRTA120,180,130,140,150,140,130, 
140,120,140,120,140,120,200,0,0 
800 DRTR110,100,110,100,110,100,140, 
255,125,100,125,100,125,100,145,255, 
0,0 

810 DRTR110,200,130,100,165,170,130, 

150,110,150,80,255,0,0 

820 DRTR160,90,160,90,125,100,125,10 

0,105,120,105,120,115,255,0,0 

830 DRTR130,250,115,110,130,200,160, 

255,1,255,130,250,115,110,130,200,16 

0,255,0,0 

840 DRTRIOO,255,125,200,110,200,125, 


850 DRTR200,255,200,200,200,100,200, 
250,165,250,175,120,175,200,200,100, 
200,200,210,120,200,255,0,0 
860 DRTR220,70,165,80,130,110,110,22 
0,130,100,110,200,0,0 
370 DATR160,100,160,100,150,100,110, 
250,150,100,110,250,150,100,110,250, 
0,0 

880 DflTRl,1,2,2,3,3,4,4,5,5,6,6,7,7, 
8,8,9,9,10,10,11,11,12,12,13 
900 FDRX=9T04STEP-1: SET (22,X):NEXTX: 
SET (23,4)i SET (24,5):SET(25,6):SET(26 
,6) sSET (27,6):SET(28,5):SET(29,4):F0 
RX=4T09: SET (30,X):NEXTX:F0RX=9T04STE 
P-l: SET (35,X)s NEXTX:F0RY=47T040STEP- 
1s SET (Y,9)í NEXTY:F0RX=9T04STEP-1: SET 
(39,X):NEXTX s F0RY=40T047: SET (Y,4):NE 
XTY 

910 F0RX=9T04STEP—1sSET(51,X)!NEXTX: 
F0RY=52T059: SET (Y,4):NEXTY:FGRX=4T07 
: SET (59,X):NEXTX * F0RY=59T051STEP-1:S 
ET(Y,7):NEXT: SET (57,8):SET<58,9>:SET 
(59,9):F0RX=9T04STEP-l:SET(63,X):NEX 
TX:F0RY=64T071: SET (Y,4):NEXTY:F0RX=4 
T09:SET(71,X)sNEXTX 

920 F0RY=71T064STEP-l:SET(Y,9):NEXTY 
:F0RX=14TG19: SET (38.X):NEXTX: SET (39. 

14): SET (40,15): SET (41,16): SET (42,16) 
:SET(43,16):SET(44,15):SET(45,14):F0 
RX=14T019:SET(46,X):NEXTX:F0RY=58T05 
OSTEP-l:SET(Y,19):NEXT:F0RX=19T014ST 
EP—1:SET(50,X):NEXTX 
930 F0RY=50T055:SET(Y,16):NEXTY: FÜRY 
=50T058:SET(Y,14):NEXTY:F0RY=70T063S 
TEP-1:SET(Y,19):NEXTY: F0RX=19TÜ14STE 
P-l:SET(62,X):NEXTX:F0RX=19T014STEP- 
1:SET(74,X):NEXT:F0RY=74T082:SET(Y,1 
4):NEXTY :FÜRX=14TÜ19: SET(82,X)sNEXTX 
: FÜRY=82T074STEP-1 :SET(Y,19):NEXTY 
940 F0RY=93T086STEP—1:SET(Y,19):NEXT 
Y:F0RX=19T014STEP-1:SET(86,X):NEXTX: 
F0RY=86T093:SET(Y,14):NEXTY:F0RX=15T 
018:SET(94,X):NEXTX:F0RX=19T014STEP- 
1:SET(98,X):NEXTX:F0RX=19T014STEP-1: 
SET(102,X)sNEXTX:F0RY=102T0110:SET(Y 
,16)sNEXTY:F0RY=102T0110*SET(Y,14):N 
EXTY 

950 F0RX=14T019:SET(110,X) .‘NEXTX:FOR 
Y=27T0101:SET(Y,25):NEXTY:F0RY=27T01 
01:SET(Y,34):NEXTY:SET(29,33):SET(30 
,33):SET(31,33):SET(32,33):SET<33,32 
):SET(34,31):SET(35,30):F0RY=36T047: 
SET(Y,29):NEXTY:SET(37,28):F0RY=38T0 
43:SET(Y,27):NEXTY 

960 SET(48,28):SET(46,30):SET(42,31) 

:SET(43,31):SET(44,31):SET(45,31):SE 
T(42,32):SET(43,32):SET(44,32>:SET(4 

5.32) sSET(71,23):SET(70,22):SET(69,2 
2):SET(68,23):SET(68,24):SET(67,26): 
SET(66,27):SET(65,28):SET(64,29):SET 
(63,29):SET(62,29):SET(61,29):SET(64 
,30) 

970 SET(63,30):SET(62,30):SET(61,30) 
sSET(76,33):SET(77,33):SET(78,33):^E 
T(79,33):SET(80,32):SET(81,31):SET(8 
2,30):F0RY=83T094:SET(Y,29):NEXTY:SE 
T(84,2£)s FORY=85T095 s SET(Y,27):NEXTY 
:SE T < 95,28):SET(93,30):SET(92,31):SE 
T(91,31):SET(90,31):SET(89,31):SET(9 

2.32) 

980 SET(91,32):SET(90 32):SET(89,32) 
990 G0SUB1000:R*=INKEY*:IFfl*=""THEN9 
90ELSERETURN 

1000 PRINTS972,"< TECLE QUALQUER TE 
CLR P/ CONTINUAR. :RETURN 
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'******************************* 


•'* AGENDO * 

•'* PROLDGICO * 

'* CP - 200 * 

" ************************** *•#■**•* 
60 LETM=0 
70 LETJ=0 
80 LETI=0 
90 LETB=0 
100 LETV=0 
110 LETT=0 

120 IF T>OTHEN GOTO 220 
130 DIM C(20) 

140 DIM N*(20,20) 

150 DIM T % (20,11) 

160 DIM D$(20,5) 

170 DIM E$(20,20) 

180 DIM B$(20,10) 

190 DIM 0$(20,5) 

200 DIM 1$(20,10) 

210 DIM C$(20,2) 

220 CLS 

230 GOSUB 4820 

240 PRINT OT 0,13;" RGENDR “ 

250 PRINT RT 1,13;"********" 

260 PRINT RT 3,3;"1.INCLUSRO" 

270 PRINT RT 5,8;"2.CONSULTO" 

280 PRINT RT 7,8;"3.EXCLUSR0" 

290 PRINT RT 9,8;"4.RLTERRCR0" 

300 PRINT RT 11,8;"5.RNIVERSRRIRNTES 


310 PRINT RT 13,8;"6.TOTAL CRDRSTRRD 
0" 

320 PRINT RT 15,8;"7.SRLVRR OS DRDOS 


330 PRINT RT 17,8;"8.SRIR DO PROGRRM 
A" 

340 PRINT RT 19,1;"MENSAGEM: OPTE PO 
R UM NUMERO." 

350 INPUT 0 

360 IF 0=1 THEN GOTO 490 

370 IF 0=2 THEN GOTO 1560 

380 IF 0=3 THEN GOTO 2760 

390 IF 0=4 THEN GOTO 2980 

400 IF 0=5 THEN GOTO 3040 

410 IF 0=6 THEN GOTO 3280 

420 IF 0=7 THEN GOTO 3350 

430 IF 0=8 THEN GOTO 3490 

440 IF 0<1 OR 0>8 THEN GOTO 340 

450 GOTO 220 

460 FQRL=1 TO 30 

470 NEXTL 

480 RETURN 

490 CLS 

500 PRINT RT 0,12;"INCLUSRO" 


510 PRINT RT 1,12;"========" 

520 PRINT RT 4,0;"QTDE. DE ELEMENTOS 
: »; 

530 PRINT RT 21,0;"MENSAGEM: DIGITE 
QTDE ELEMENTOS." 

540 INPUT B 

550 PRINT RT 4,20;B 

560 GOSUB 640 

570 IF T+B>20 THEN GOTO 1430 
580 IF T=20 THEN GOTO 740 
590 CLS 

600 PRINT RT 0,12;"INCLUSRO" 

610 PRINT RT 1,12;"========“ 

620 GOSUB 3860 

630 IF 0=1 THEN GOTO 680 

640 PRINT RT 21,0;"MENSRGEM: ENTER P 

/ CONTINUAR 

650 LET fl$=INKEY$ 

660 IF A*="" THEN GOTO 650 
670 RETURN 

680 IF T=0 THEN GOTO 820 
690 LET 1=1 

700 IF I>T THEN GOTO 800 

710 IF N4(I)="***** " T 

HEN GOTO 890 

720 LET 1=1+1 

730 GOTO 700 

740 CLS 

750 PRINT RT 8,11;" RTENCRO " 

760 PRINT RT 9,11;" ******* " 

770 PRINT RT 21,0;"MENSRGEM:RGENDR T 
OTRL. OCUPRDR " 

780 GOSUB 460 
790 GOTO 220 

300 IF T=20 THEN GOTO 740 

810 LET J=T+1 

820 IF T=0 THEN LET J=1 

830 FORI=J TO T+B 

840 GOSUB 950 

850 NEXTI 

360 LET T=T+B 

870 LET Y=T 

880 GOTO 220 

890 GOSUB 950 

900 LET T=T+1 

910 LET B=B-1 

920 IF B=0 THEN GOTO 220 

930 GOSUB 3670 

940 GOTO 690 

950 PRINT RT 21,0;"MENSRGEM: DIGITE 
NOME " 

960 INPUT N*(I) 

970 PRINT RT 7,9;N*(I) 

980 PRINT RT 21,10;"DIGITE TEL. 

II 


990 INPUT T*(I> 

1000 PRINT RT 9,9;T*(I> 

1010 PRINT RT 21,17;" DRTR RNIVERS. 

II 

1020 INPUT D$(I) 

1030 PRINT RT 11,9;D*(I> 

1040 PRINT RT 21,17;" ENDEREÇO 

II 

1050 INPUT E*(I> 

1060 PRINT RT 13,9;E*(I) 

1070 PRINT RT 21,17;" BRIRRO 

M 

1080 INPUT B*(I> 

1090 PRINT RT 15,9;E*(I> 

1100 PRINT RT 21,17;" CEP 

II 

1110 INPUT 0*(I> 

1120 PRINT RT 15,27;0*(I> 

1130 PRINT RT 21,17;" CIDADE 

ii 

1140 INPUT I*(I> 

1150 PRINT RT 17,9;1$(I) 

1160 PRINT RT 21,17;"SIGLR DO ESTADO 

II 

1170 INPUT C$(I> 

1180 PRINT RT 17,27;C$(I) 

1190 LET C(I)=I 
1200 PRINT RT 5,9;C(I> 

1210 IF B>1 THEN GOSUB 3670 
1220 RETURN 
1230 CLS 

1240 PRINT RT 0,1;"CONSULTA DOS CODI 
GOS EXCLUÍDOS " 

1250 PRINT RT 1,1;"================= 


1260 PRINT RT 4,7;"C0DIG0 CODIG 

0" 

1270 PRINT RT 21,0;"MENSRGEM: RGURR 
DE... 

1280 PRINT RT 5,0;" " 

1290 LET Z=0 
1300 LET 1=1 

1310 IF I>20 THEN GOTO 1350 


1320 IF N$(I)="***** 

THEN GOTO 1400 
1330 LET 1=1+1 
1340 GOTO 1310 
1350 IF Z>0 THEN GOTO 1380 
1360 PRINT RT 21,10;"NRO Hfl CODIGO E 
XCLUIDO" 

1370 GOSUB 460 

1380 GOSUB 640 

1390 GOTO 220 

•1400 PRINT " " ; I, 
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1410 LET Z=Z+1 
1420 GOTO 1330 
1430 LET Q= (T+B)-20 

1440 CLS 

1450 PRINT AT 0,12;"RTENCRO" 

1460 PRINT RT 1,12; "******♦" 

1470 PRINT RT 5,2;"Hfl ESPRCO P/ ";(B 
-Q);" ELEM." 

148Ò IF (B-Q)>=10 THEN PRINT RT 6,23 
; "**" 

1490 PRINT RT 6,23;"*" 

1500 PRINT RT 9,2;"DIGITE ENTRO, R Q 
URNTIDRDE DE 

1510 PRINT RT.11,2;“ELEMENTOS, NRO E 
XCEDENDO ";(B-Q);"." 

1520 IF <B-Q)>=10 THEN PRINT RT 12,2 
7;"**" 

1530 PRINT RT 12,27;“*" 

1540 GOSUB 640 
1550 GOTO 220 

1560 IF T=0 THEN GOTO 2570 


1570 

1580 

CLS 

PRINT 

RT 

0,8; "CONSULTR" 


1590 

PRINT 

RT 

1,8;"=*======" 


1600 

PRINT 

RT 

5,8;"1.POR NOME" 


1610 

PRINT 

RT 

7,8;"2.POR END." 


1620 

PRINT 

RT 

9,8;"3.POR FONE" 


1630 

PRINT 

RT 

11,8;"4.POR CODIGO" 

1640 

PRINT 

RT 

13,8;"5.C0DIG0S 

EXCLUI 

DOS" 

1650 

PRINT 

RT 

15,8;"6.SRIR Dfl 

CÔNSUL 

TR" 

1660 

PRINT 

RT 

21,0;"MENSAGEM: 

OPTE 

POR UM NUMERO" 

1 


1670 

INPUT 

R 




1680 IF R=1 THEN GOTO 1750 

1690 IF R=2 THEN GOTO 1980 

1700 IF R=3 THEN GOTO 2200 

1710 IF R=4 THEN GOTO 2420 

1720 IF R=5 THEN GOTO 1230 

1730 IF R=6 THEN GOTO 220 

1740 IF R<1 OR fl>6 THEN GOTO 1660 

1750 IF T=0 THEN GOTO 2570 

1760 LET R=0 

1770 CLS 

1780 PRINT RT 0,7;"CONSULTR POR NOME 

II 

1790 PRINT RT 1,7;"================= 

II 

1800 GOSUB 3860 

1810 PRINT RT 21,0;"MENSAGEM: DIGITE 
NOME CRDRSTRRDO" 

1820 INPUT H* 

1830 PRINT RT 21,0;“MENSAGEM RGURRD 
E. . . " 

1840 IF LEN(H*)<20 THEN GOSUB 4750 
1850 LET J=1 

1860 IF J>20 THEN GOTO 1910 
1870 IF N$(J)=H$ THEN GOSUB 3780 

1880 PRINT RT 21,10;" RGURRDE... 

II 

1890 LET J=J+1 

1900 GOTO 1860 

1910 IF R=0 THEN GOTO 1940 

1920 PRINT RT 21,10;"SOMENTE ESTE(S) 

II 

• 

1930 GOTO 1950 

1940 PRINT RT 21,10;"NOME NRO ENCONT 
RADO 

1950 GOSUB 460 
1960 GOSUB 640 
1970 GOTO 1560 
1980 CLS 
1990 LET R=0 

2000 PRINT RT 0,5;"CONSULTR POR ENDE 
RECO'" 

2010 PRINT RT 1,5;"================= 

2020 GOSUB 3860 

2030 PRINT RT«21,0;"MENSAGEM: DIGITE 
ENDEREÇO CRD." 

2040 INPUT H$ 

2050 PRINT RT 21,0;"MENSAGEM: RGURR 

DE... 

2060 IF LEN(H$)<20 THEN GOSUB 4750 
2070 LET J=i 

2080 IF J>20 THEN GOTO 2130 
2090 IF E$(J)=H$ THEN GOSUB 3730 
2100 PRINT RT 21,10;" RGURRDE... 

II 

2110 LET J=J+1 
2120 GOTO 2080 


2130 IF R=0 THEN GOTO 2160 

2140 PRINT RT 21,10;"SOMENTE ESTE(S) 

II 

2150 GOTO 2170 

2160 PRINT RT 21,10;"END. NRO ENCONT 
RADO 

2170 GOSUB 460 
2130 GOSUB 640 
2190 GOTO 1560 
2200 CLS 
2210 LET R=0 

2220 PRINT RT 0,5;"CONSULTR POR TELE 
FONE" 

2230 PRINT RT 1,5;"================= 

II 

2240 GOSUB 3860 

2250 PRINT RT 21,0;"MENSAGEM: DIGITE 
TELEFONE CRD." 

2260 INPUT H* 

2270 PRINT RT 21,0;"MENSAGEM: RGURR 
DE. . . 

2280 IF LEN <H$)<11 THEN GOSUB 4750 
2290 LET J=1 

2300 IF J>20 THEN GOTO 2350 
2310 IF T$(J)=H$ THEN GOSUB 3780 
2320 PRINT RT 21,10;" RGURRDE... 

II 

2330 LET J=J+1 

2340 GOTO 23Q0 

2350 IF R=0 THEN GOTO 2380 

2360 PRINT RT 21,10;"SOMENTE ESTE(S) 

II 

2370 GOTO 2390 

2380 PRINT RT 2i,10;"TEL. NRO ENCONT 
RflDO" 

2390 GOSUB 460 
2400 GOSUB 640 
2410 GOTO 1560 
2420 CLS 

2430 PRINT RT 0,6;"CONSULTR POR CODI 
GO" 

2440 PRINT RT 1,6;"================= 

__ II 

2450 GOSUB 3860 

2460 PRINT RT 21,0;"MENSAGEM: DIGITE 
CODIGO 

2470 INPUT J 

2480 IF J>Y THEN GOTO 2600 
2490 IF N$(J)="***** 

THEN GOTO 2530 

2500 PRINT RT 21,0;"MENSAGEM: RGURR 

DE... 

2510 GOSUB 3560 
2520 GOTO 2550 

2530 PRINT RT 21,0;"MENSAGEM: CODIGO 
EXCLUÍDO. 

2540 GOSUB 460 
2550 GOSUB 640 
2560 GOTO 1560 

2570 PRINT RT 19,11;"DRD0S INEXISTEN 
TES. " 

2580 GOSUB 460 
2590 GOTO 340 

2600 IF J<=20 THEN PRINT RT 21,0;"ME 
NSRGEM: CODIGO INEXISTENTE. 

2610 IF J>20 THEN PRINT RT 21,0;"MEN 
SRGEM: CODIGO FORR DO LIMITE." 

2620 GOSUB 460 

2630 GOSUB 640 

2640 IF 0=2 THEN GOTO 1560 

2650 GOTO 220 

2660 LET N$(J)="***** 

II 

2670 LET T$(J>=" " 

26S0 LET D$(J)=" " 

2690 LET E*(J)=" " 

2700 LET B$(J)=" " 

2710 LET 0$(J)=" " 

2720 LET I$(J)=" " 

2730 LET C$(J)=" " 

2740 LET T=T-1 
2750 RETURN 
2760 CLS 
2770 LET R=0 

2780 PRINT RT 0,12;"EXCLUSÃO" 

2790 PRINT RT 1,12;"==»=====" 

2800 GOSUB 3S60 

2310 PRINT RT 21,0;"MENSAGEM: DIGITE 
COD. P/ EXCLUÍDO" 

2320 INPUT J 

2830 IF J>Y THEN GOTO 2600 
2840 PRINT RT 21.10;*' RGURRDE... 


II 

2850 IF N$(J)="***** 

THEN GOTO 2920 
2860 GOSUB 3780 

2870 PRINT RT 21,0;"MENSAGEM: EXCLUI 
R (S/N)? 

23S0 INPUT X$ 

2890 IF X*="N" THEN GOTO 2960 
2900 IF X$<>"S" THEN GOTO 2880 
2910 GOSUB 2660 
2920 GOSUB 3670 

2930 PRINT RT 21,10;" RGURRDE... 

II 

2940 PRINT RT 21,0;"MENSAGEM: CODIGO 
EXCLUÍDO. 

2950 GOSUB 460 
2960 GOSUB 640 
2970 GOTO 220 

2980 IF T=0 THEN GOTO 2570 
2990 CLS 

3000 PRINT RT 0,11;"RLTERRCRO" 

3010 PRINT RT 1,11;"=========" 

3020 GOSUB 3860 

3030 GOTO 3960 

3040 IF T=0 THEN GOTO 2570 

3050 CLS 

3060 LET R=0 

3070 PRINT RT 0,8; "RNIVERSRRIRNTES" 
3080 PRINT RT 1,8;"===============" 

3090 INPUT Q$ 

3100 CLS 

3110 PRINT RT 0,1;" ANIVERSARIANTES 
DO DIR ";Q$ 

3120 PRINT RT 1,0;"================= 


3130 GOSUB 3860 

3140 PRINT RT 21,0;"MENSAGEM: RGURR 
DE... 

3150 LET J=1 

3160 IF J>20 THEN GOTO 3210 
3170 IF D*(J)=Q$ THEN GOSUB 3780 
3180 PRINT RT 21,10;" RGURRDE... 

II 

3190 LET J=J+1 

3200 GOTO 3160 

3210 IF R=0 THEN GOTO 3240 

3220 PRINT RT,21,10;"NRO HR MRIS RNI 

VERSRR." 

3230 GOTO 3250 

3240 PRINT RT 21,0;"MENSAGEM: SEM RN 
IVERSRRIRNTES 


3250 

GOSUB 

460 


3260 

GOSUB 

640 


3270 

GOTO 220 


3280 

3290 

CLS 

PRINT 

RT 0,8; 

"TOTRL CRDRSTRRDO" 

3300 

PRINT 

RT 1,8; 


3310 

PRINT 

RT 8,6; 

"NR. ELEMENTOS = 

";T 

3320 

_II 

PRINT 

RT 9,6; 

II 

3330 

GOSUB 

640 


3340 

GOTO 220 


3350 

3360 

CLS 

PRINT 

RT 0,8; 

"SRLVRR OS DRDÜS" 

3370 

PRINT 

RT 1,8; 


3380 

PRINT 

RT 21,0 

;"MENSAGEM: SRLVRR 

OS DADOS 

(S/N)?" 


3390 

INPUT 

Sí 



3400 IF S*="N" THEN GOTO 220 
3410 IF S$="S" THEN GOTO 3430 
3420 GOTO 3390 

3430 PRINT RT 21,0;"MENSAGEM: PREPRR 
E GRRVRDOR, ENTER" 

3440 LET RÍ=INKEY$ 

3450 IF R$="" THEN GOTO 3440 
3460 PRINT RT 21,0;" 

II 

3470 SRVE"RGE" 

3430 GOTO 220 

3490 PRINT RT 0,S;"SRIR DO PROGRAMA" 
3500 PRINT RT 1,3;"================" 

3510 PRINT RT 21,0;"MENSAGEM: SAIR D 
0 PROG. (S/N)?" 

3520 INPUT F* 

3530 IF F$="N" THEN GOTO 220 
3540 IF F*="S" THEN NEW 
3550 GOTO 3520 

3560 IF 0=2 OR 0=3 OR 0=4 OR 0=5 THE 
N LETI=J 

3570 PRINT RT 5,9;C(I> 
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3530 

PRINT 

RT 

7,9;N*(I> 



" THEN GOTO 4070 


3590 

PRINT 

RT 

9 , 9;T$ <I) 



4010 

GDSUB 3730 


3600 

PRINT 

RT 

11,9;D$(I) 



4020 

PRINT RT 21,0; "MENSRGEM: RLTERR 

3610 

PRINT 

RT 

13,9;E$(I) 



R (S/N)? 


3620 

PRINT 

RT 

15,9;B$(I) 



4030 

INPUT S* 


3630 

PRINT 

RT 

15.27:0$(I) 


4040 

IF SS="N" THEN GOTO 220 

3640 

PRINT 

RT 

17,9;1$(I) 



4050 

IF SSO"S" THEN GOTO 4020 

3650 

PRINT 

RT 

17,27;CS(I) 


4060 

GOTO 4110 


3660 

RETURN 




4070 

PRINT RT 21,10;"CODIGO EXCLUÍDO 

3670 

PRINT 

RT 

5,9;" 



• 

II 


3680 

PRINT 

RT 

7,9; " 

21 

espaços 

4080 

GOSUB 460 


II 






4090 

GOSUB 640 


3690 

PRINT 

RT 

9,9; " 

10 

espaços 

4100 

GOTO 220 


II 






4110 

PRINT RT 21,0; "MENSRGEM: DIGITE 

3700 

PRINT 

RT 

11,9;" 

ll 


NR. 

CRMPO 


3710 

PRINT 

RT 

13,9;" 

20 

espaços 

4120 

INPUT V 


II 






4130 

IF V=2 THEN GOSUB 

4270 

3720 

PRINT 

RT 

15,9;" 

10 

espaços 

4140 

IF V=3 THEN GOSUB 

4320 

II 






4150 

IF V=4 THEN GOSUB 

4370 

3730 

PRINT 

RT 

15,27;" 


ii 

4160 

IF V=5 THEN GOSUB 

4420 

3740 

PRINT 

RT 

17,9;" 

10 

espaços 

4170 

IF V=6 THEN GOSUB 

4460 

II 






4180 

IF V=7 THEN GOSUB 

4510 

3750 

PRINT 

RT 

17,27;" " 



4190 

IF V=S THEN GOSUB 

4560 

3760 

IF 0=J 

L THEN PRINT RT 

21,10;" 

4200 

IF V=9 THEN GOSUB 

4610 


22 espaços 
3770 RETURN 
3730 GOSUB 367C) 

3790 GOSUB 3560 

3800 IF 0=4 THEN RETURN 

IF 0=3 THEN GOTO 3S30 
GOSUB 640 

IF 0=2 OR 0=3 OR 0=5 THEN LET 


3810 

3820 

3830 

=R+1 

3840 

3350 

3860 

3870 

3880 

3890 

3900 

3910 

3920 

3930 

3940 

3950 

3960 

NR. 

3970 

3980 

3990 


IF 0=2 OR 0=5 THEN GOSUB 3670 
RETURN 

PRINT AT 5,0;"l.COD..: " 

PRINT RT 7,0;"2.NOME.s " 

PRINT RT 9,0;"3.FONE.: " 

PRINT RT 11,0;"4.RNIV. 

PRINT RT 13,0;"5.END.. 

PRINT RT 15,0;"6.BRIR. 

PRINT RT 15,20;"7. CEP : " 

PRINT RT 17,0;"S.CID..: " 

PRINT RT 17,20;"9.EST: " 

RETURN 

PRINT RT 21,0;"MENSRGEM: DIGITE 

CODIGO 

INPUT J 

IF J>Y THEN GOTO 2600 
PRINT RT 21,10;" RGURRDE... 


4000 IF N$(J) = "***■** 15 espaços 


4210 IF V<2 OR V>9 THEN GOTO 4110 
4220 PRINT RT 21,0;"MENSRGEM:DRDOS C 
ORRETOS (S/N)? " 

4230 INPUT K* 

4240 IF K*="S" THEN GOTO 220 
4250 IF K*="N" THEN GOTO 4110 
4260 GOTO 4230 

4270 PRINT RT 7,9;“ 20 espaços 

4230 PRINT RT 21,0;"MENSRGEM: DIGITE 
NOME 

4290 INPUT N$(J) 

4300 PRINT RT 7,9;N$(J) 

4310 RETURN 

4320 PRINT RT 9,9;" 11 espaços " 

4330 PRINT RT 21,17;"TELEFONE 
4340 INPUT T*(J> 

4350 PRINT RT 9,9;T$(J) 

4360 RETURN 

4370 PRINT RT 11,9;" 8 espaços 

4380 PRINT RT 21,17;"DRTR RNIV. " 
4390 INPUT D*(J) 

4400 PRINT RT 11,9;D*(J) 

4410 RETURN 

4420 PRINT RT 13,9;" 13 espaços 

II 

4430 INPUT E*(J) 

4440 PRINT RT 13,9;E$(J> 

4450 RETURN 


4460 PRINT RT 15,9;" 


10 espaços 


4470 PRINT RT 21,17;"BRIRRO 
4480 INPUT B$(J) 

4490 PRINT RT 15,9;B$(J) . 
4500 RETURN 

4510 PRINT RT 15,27;" 5 


espaços 


4520 PRINT RT 21,17; "CEP 
4530 INPUT 0*<J) 

4540 PRINT RT 15,27;0$(J) 

4550 RETURN 

4560 PRINT RT 17,9;" 10 espaços 

II 

4570 PRINT RT 21,17;"CIDRDE " 

4580 INPUT I*(J> 

4590 PRINT RT 17,9;I*(J) 

4600 RETURN 

4610 PRINT RT 17,27;" " 

4620 PRINT RT 21,17;"SIGLR DO EST." 
4630 INPUT C$(J) 

4640 PRINT RT 17,27;C$(J) 

4650 RETURN 

4660 PRINT RT 21,0; "MENSRGEM: ALTERA 
R (S/N)? 

4670 INPUT Q$ 

4680 IF Q$="N" THEN GOTO 220 
4690 IF Q$="S" THEN GOSUB 4050 
4700 PRINT RT 21,0;"MENSRGEM: NOVR I 
NCLUSRO (S/N)? " 

4710 INPUT ZS 

4720 IF Z$="S" THEN GOSUB 1300 
4730 IF Z*="N" THEN GOTO 4660 
4740 RETURN 

4750 IF 0=2 AND R=1 THEN LET Z=20-LE 
N (H$ )* 

4760 IF 0=2 RND fl=2 THEN LET Z=20-LE 
N(H$) 

4770 IF 0=2 RND R=3 THEN LET Z=11-LE 
N(H$) 

4730 F0RL=1 TO Z 
4790 LETH*=H*+" " 

4800 NEXT L 
4S10 RETURN 

4320 PRINT RT 0,0;" 32 destes carac 

teres 

4330 FORP=i TO 21 

4840 PRINT TRB(0);;TAB <31);"*" 
4350 NEXTP 

4860 PRINT RT 21,0;" 32 destes cara 

cteres " 

4S70 RETURN 


A ASSISTÊNCIA TÉCNICA 
DA PROLÓGICA 
MUDOU RARA MELHOR. 

Agora está em novo endereço, 
com mais espaço, novo telefone 
e a mesma eficiência de sempre. 

Rua Fidêncio Ramos, 302 ■■■ PROLOGICA 

CEP 04551 - Vila Olímpia - SP. Zmm 

Tel.: 813-6107 
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Modelo: CP 200 
16KRAM 


10 7 ******************************** 
20 '* DRMRS * 

30 '* PROLQGICR * 

40 7 * CP - 200 * 

50 7 ******************************** 
60 FOR Z=6 TO 40 

70 IFZ>37 AND R(Z)=1 THEN LET fl(Z)*2 
80 IFZ<10 AND R(Z)=-lTHEN LETfl(Z>=-2 
90 LET P=0 

100 IF R<Z)=-2 THEN LET fl(Z)=52 
110 IF R(Z)=-l THEN LET A(Z)=180 
120 IF R(Z)=0 THEN LET fl(Z)=128 
130 IF R(Z)*1 THEN LET F:(Z)*189 
140 IF R(Z)=2 THEN LFT R(Z>=61 
150 NEXT Z 

160 PRINT RT 0 r10; "PROLOGICR" 

170 PRINT" 0 «MICRO " 

180 PRINT *" RBCDEFGH" 

190 PRINT ," 1 ";CHR$ (R(40) );" ";CHR* 
(fl(39)); 1 ";CHR*(fl(38));" ";CHRt(fl(3 

7) ) 

200 PRINT," 2";CHRS(R(36))?" ";CHRf( 
fl(35));" ";CHR$(R(34));" ";CHRt(fl(33 
) ) 

210 PRINT," 3 ";CHR$(R(31));" ";CHRt 
(R(30));" ";CHRS(R(29))?" ";CHR$(fl(2 

8) ) 

220 PRINT," 4";CHR$(A(27))ç" ";CHR*( 
R(26));" ";CHR$(A(25));" ";CHR$(fl(24 
) > 

230 PRINT," 5 ";CHR*<fl(22>);" "?CHR* 
(fl(21));" ";CHR$(R(20));" ";CHR*(R(1 

9)) 

240 PRINT," 6";CHR$(fl(18));" ";CHR$( 
A(i7));" ";CHR$(P(16));" ";CHR$(R<15 

:• > 

250 PRINT," 7 ";CHR$(fl(13))y" "yCHR* 
(fl(12))y" "y CHR$(R(ll))y" "yCHR$(fl(l 
0 ) ) 

260 PRINT," 8"yCHR$(fl(9)) y" "yCHR*(P 
(8))?" ";CHR*(P(7))y" "?CHRt(fl(6)> 
270 PRINT" X = VOCE " 

280 FOR Z=6 TO 40 
290 IF fl(Z)=52 THEN LET R(Z)=-2 
300 IF R(Z)=180 THEN LET A(Z>*-1 
310 IF P (Z ) = 128 THEN LET fl(Z)*0 
320 IF P(Z)=189 THEN LET R(Z)=1 
330 IF fl<Z)=61 THEN LET R(Z)*2 
340 NEXT Z 
350 LET T=T+1 

360 IF TOO THEN GOSUB 1750 
370 PRINT"ULT. ";F$;,,"DE ? "r 
380 INPUT C% 

390 PRINTC*;" P/? "; 

400 INPUT B* 

4ie LET F$=C*+"-"+B*+" " 

420 FOR W=1 TO 2 

430 IF W=1 THEN LET D$=C* 

4u.0 IF W=2 THEN LET D*=B$ 

450 LET D=-40*(l)$ = "B1")-39*(D$= :, D1") 
-38*<D$*"Fl")-37«(D$= i, Hl")-36*<DS="P 
2" )-35*(D*= C2")-3«*(D$="E2" >-33*(D$ 


= "G2‘ : ) -31* < D*="B3" ) -3&* (0*= '03 ,: ) -29* 

(D$="F3" )-28* <D*="H3") -27*(D*= :, P4" ) - 
26*(D$="C4")-25*(D$= :, E4 ;, )-24*(0$=-'34 
; ’)-22*(D*="B5")-21*(D$="O5")-20*(D*= 
"F5")«»19* (D$="H5 ,: )-18*(D$ =,Í R6 ; ) -17* (D 
♦ =,, C6" )-16*(D*="E6" )-15* ; j$="G6" )-13 
*0$="B7")-12*(D$="D7">-Ii*<D*="F7") 
-10*(D$="H7")-9*(D$="R8 ,: )-8# < D*="C8" 
) -7* (D*= "E8" )-6* < D$="G8") 

470 IF W=1 THEN ^ET C=D 
480 IF W=2 THEN LET B=D 
490 NEXT W 
500 LET N=RBS(B) 

5i0 IF N=0 THEN LET N=i 
520 IF R(N)<>0 THEN GOTO 1660 
530 NEXT W 
540 LET X=C 

550 IF X=0 THEN LET X=1 

560 IF R(PBS(X) ><1 OR R<RBS(X))>2 TH 

EN GOTO 1660 

570 LET E=0 

580 lET C=RBS(C) 

596 l.ET B=PBS(B) 

600 IF B-C=í0 THEN LET fl(B-5)=0 
610 IF 8-C=8 THEN LET R<B-4)=0 
620 IF C-B=10 THEN LET fl<C-5)=0 
630 IF C-B=8 THEN LET R(C-4)=0 
640 LET C=RBS<C) 

650 LET B=RBS(B) 

660 LET R<B)=R(C) 

670 LET R(C)*0 
680 LET US= " 

690 IF R(B) OR RBS(C-B)=10 OR RBS(C- 
B)=8 THEN PRINT RT 18r0?"SALTO MULTI 
PLO ?","SIM, DIGITE S",,"NRO, DIGITE 
<ENTER>." 

700 IF RBS <C-B)=10 OR RBS(C-B)=8 TH 
EN INPUT U* 

710 CLS 

720 IF ü$>"" THEN GOTO 60 

730 FOR Z=6 TO 40 

740 IF Z<9 THEN GOTO 780 

750 IF R(Z)<0 PND (fl(Z-4)=1 OR R(Z-4 

)=2)PND R(Z-8)*0 THEN GOTO 1000 

760 IF Z<11 THEN GOTO 780 

770 IF R(Z)<0 PND (fl(Z-5 )=1 OR R(Z-5 

)=2)AND R(Z-10)=0 THEN GOTO 1120 

780 IF Z>25 THEN GOTO 810 

790 IF R(Z)=-2 PND (fl(Z+4)=l OR R(Z+ 

4) =2) RND R(Z+8)=0 THEN GOTO 1380 

800 IF fl<Z) =-2 PND(fl(Z+5)=l OR fl(Z+5 

)=2) RND R(Z+10)=0 THEN G0 T 0 1380 

810 NEXT Z 

820 LET KK=0 

830 LET U=0 

840 LET Z=(INT <RND*35)) + 7 
850 LET K=0 * 

860 IF U>199 THEN LET KK=KK+1 
970 LET U=U+1 

880 IF R(Z)<0 RND P(Z-4;=0 THEN LET 


K=I 

390 IF R(Z)<0 RND R(Z-5)=0 PND K»0 T 
HEN LET K=2 

900 IF K=0 RND Z<26 RNO P(Z)=-2 PND 

R(Z + 4)=0 THEN LET K=-7 

910 IF Z<=10 THEN G0 T 0 940 

920 IF K=i RND UC200 RND R(Z-8)=1 TH 

EN GOTO 840 

930 IF K=2 RND UC200 RND R(Z-10)=1 T 
HEN GOTO 840 

940 IF K=0 PND KKC350 THFN GOTO 840 
950 IF K=0 THEN LE T SM=12 
960 IF K=0 THEN GOTO ó0 
970 LET fl(Z-(3+K))=R(Z) 

980 LET R < Z)=0 

990 GOTO 60 

1000 LET fi(Z-8)=fl < Z) 

1010 LET R(Z)=0 
1020 LET R(Z-4)=0 
1030 IF Z<24 THEN GOTO 60 
1040 IF (R(Z-13)=1 OR R(Z-13)=2) PND 
R(Z-<18>=0 THEN LET P=1 
1050 IF (R(Z-12)=1 OR R(Z-12)*2) PND 
R(Z-18)=0 THEN LET P=2 
1060 IF P=1 THEN LET fl(Z-18)=fl(Z-8j 
1070 IF P=1 THEN LET R(Z-13)=0 
1080 IF P=2 THEN LET R(Z-16)*R(Z-8) 
1090 IF P=2 THEN LET R(Z-12)=0 
1100 IF P>0 THEN LET R(Z-8)=0 
1110 GOTO 60 
1120 LET fl(Z-10)=R(Z) 

1130 LET R(Z)=0 
1140 LET fl(Z-5)=0 
1150 IF Z<25 THEN GOTO 60 
1160 IF (fl(Z-15)=l OR R(Z-15)=2) PND 
R(Z-20)=0 THEN LET P=1 
1170 IF (R(Z-14)=1 OR R(Z-14)=2) PND 
R(Z-l8)=0 THEN LET P=2 
1180 IF P=1 THEN LET fl(Z-15>*0 
1190 IF P=1 THEN LET R<Z-20)-P(Z-10) 
1200 IF P=2 THEN LET R(Z-14)=0 
1210 IF P=2 THEN LET fl<Z-18)*fl(Z-lfc* 
1220 IF P>0 THEN LET R(Z-10)*0 
1230 GOTO 60 
1240 LET fl( Z+8)=-2 
1250 LET fl(Z+4)=0 
1260 LET fl<Z)=0 

1270 IF Z<32 RND (fl<Z+3)=l OR fl(Z+3) 
=2) RND R(Z-2)=0 THEN LET P=1 
1280 IF Z<23 RND (fi(Z+14)»l OR R(Z*1 
4)=2) RND P(Z+16)=0 THEN LET P»2 
1290 IF Z<23 RND (fi(Z+13)«l OR P(Z+1 
3)=2) RND R(Z+18)=0 THEN LET P=3 


1300 

IF 

P*1 

THEN 

LET 

R(Z+3)*G 

1310 

IF 

P=1 

THEN 

LET 

R(Z-2)=-2 

1320 

IF 

P*2 

THEN 

LET 

fi(Z+14)»0 

1330 

IF 

P=2 

THEN 

LET 

R(Z+16)»-2 

1340 

IF 

P=3 

THEN 

LET 

R(Z+13)-0 

1350 

IF 

P=3 

THEN 

LET 

R(Z+18)=-2 

1360 

IF 

P>0 

THEN 

LET 

R(Z+8)=0 


1370 GOTO 60 
1380 LET P(Z+10)=-2 
1390 LET R(Z-*-5)=0 
1400 LET R<Z)=0 
1410 GOTO 66 
1420 DIM R(45) 

1436 LET E=6 
1440 FOR Z=! TO 45 
1450 IF Z<6 THEN LET R(Z)=9 
1460 IF Z>5 RND Z<19 THEN LET R(Z)=1 
1470 IF Z>18 RND Z<28 THEN LET fl(Z)= 
0 

1480 IF Z>27 RND Z<41 THEN LET R<Z)= 
-1 

1490 IF Z>40 THEN LET R(Z)=9 

1500 NEXT Z 

1510 LET 0=0 

1520 LET fl(14)=9 

1530 LET P(23)=9 

1540 LET P(32)=9 

1550 LET US»"" 

1560 LET P*E 
1570 LET F$=" 

1580 LET T=0 

1590 PRINT"** JOGO DE DflMRS **" 

1600 PRINT, ,"POSSO COMECRR ? S/N?" 
1610 INPUT J$ 

1620 CLS 

1630 IF J$="S" THEN GOTO 730 
1640 IF THEN GOTO 60 

1650 GOTO 1610 
1660 LET E=E«-i 

1670 PRINT RT (13+E),0;"MOVIMENTO IL 
EGRL" 

1680 GOTO 370 

1690 PRINT RT 13,0;"OUTRR VEZ ?" 

1700 PRINT"DIGITE <ENTER>" 

1710 POKE 16418,1 
1720 INPUT 0 % 

1730 CLS 
1740 RUN1420 
1750 LET M=0 
1760 LET H=0 
1770 FOR X=6 TO 40 

1780 IF R(X)«-1 OR fl(X)=-2 THEN LET 
M= 1 

1790 IF R(X)=1 OR P(X)=2 THEN LET H= 
1 

1800 NEXT X 

1810 IF (H=0 RND M=1 ) THEN GOTO 1840 
1820 IF (H=1 RND M=0) THEN GOTO 1860 
1830 RETURN 

1840 PRINT, ,"EU VENCI" 

1850 GOTO 1690 

1860 PRINT,, "VOCE VENCEU" 

1870 GOTO 1690 
1880 SRVE"DRMflS" 

1890 GOTO 1420 


v 
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TABUADA 



àmJ V 

•*'* 

TRBURDR 

* 

30 

*•* * 

PROLOGICR 

* 

40 


CP-300 / CP—500 

* 


50 •" ************.******************* 

70 G0T0200 
S0 CLS 

90 INPUT"QUAL TRBURDR DESEJR ESTUDRR 

ii . fl 

100 FOR J=1 TO 10 

110 PRINT ,, J" X "R "= "A+J 

120 NEXTJ 

130 INPUT "DESEJR CONTINURR <S/N>";S 
$ 

140 IF S*="S" THEN 170 :ELSEIF Sí=" 

N" THEN CLS:PRINT@8*64+16,"fl C fl B 0 
U, BOM DESCRNSO!!!" 

150 fl$=INKEY$:IF R$="" THEN150 ELSE 
END 

160 IF I$="N" THEN 30 

170 INPUT"DESEJR INTRUCOES (S/N)";I$ 

ISO IF I$="S"THEN 200 ELSESO 

190 CLS 

200 CLS: PRINT @5*64+10,"PROGRRMR EDUC 
RCIONRL":PRINT@6*64+10,STRING*(20,13 
1 ) 

210 PRINT 

220 PRINT" SE VOCE DESEJR ESTU 

DAR RLGUMR TRBURDR, E' 50" DIGITAR 
0 NUMERO CORRESPONDENTE RO 
MULTIPLICADOR E PRESSIONRR 
< ENTER >. CRSO QUEIRR ESTUDRR OUTRR 
TRBURDR E" SCT Dl- GITRR ' 

S" E PRESSIONAR < ENTER >. 

230 PRINT" 

BOM ESTADO...!!!" 

240 R$=INKEY$ 

250 PRINT @15*64+10,"TECLE <ENTER> P 
RRR CONTINURR."; 

260 IF R$="" THEN G0T0240 ELSE GOTO 
SO 


RADIOAMADOR - ATENÇÃO! 



Projetado especialmente para micros compatíveis com a lógica - CP 200 e 
NEZ 8000 c/ slow. 


Fácil de instalar; conectado entre o micro e a memória de 16k (Nez 8000). 

Retira o sinal de AUDIO da saída de fontes de seu transceptor e a 
transmissão é feita pelo terminal KEY onde normalmente é ligado o 
manipulador. 

Recepção automática. Transmissão regulada por SOFTWARE variando de 
10 a 50 PPM (palavras por minuto). 

10 memórias para mensagens padrão. 




Interface e Programa RS 1050A para recepção 
e transmissão de CW (telegrafia) 


Informações: 


RENSI ELETRÓNICA DIGITAL LTDA. 
Caixa Postal n.° 6.661 
01051 São Paulo-SP 


TELS.: 220-4922/92-4837 


» 






























ENG: 

Uma Software-House 
Polivalente 



á cinco meses no mercado de 
informática, produto do tra¬ 
balho de uma equipe de jo¬ 
vens engenheiros da Escola Poli¬ 
técnica da Universidade de São 
Paulo, a ENG Comércio de Compu¬ 
tadores é uma empresa polivalen¬ 
te: além de elaborar e desenvolver 
programas que atendam ao profis¬ 
sional liberal, a casa oferece treina¬ 
mento de pessoal e assessoria co¬ 
mercial a pequenas e médias em¬ 
presas. 

Na área de software, o pessoal 
da ENG desenvolveu para o CP 
500, acoplado a uma P 500, o Med- 
disk — aplicativo que visa a auxi¬ 
liar os médicos a manterem seus 
arquivos de clientes, tanto nas clí¬ 
nicas quanto nos consultórios. De 
acordo com Álvaro Venegas dos 
Santos e Rogério Aneas Buldo, do¬ 
nos da ENG, responsáveis pelo pro¬ 
grama, o Meddisk foi elaborado de 
forma que haja uma comunicação 
constante entre os usuários e a 
máquina. “Isto foi possível”, infor¬ 
ma Álvaro, “através da implemen¬ 
tação de um menu que indica ao 
usuário as funções do programa, 
sendo que a cada função sempre há 
a possibilidade de retorno ao ín¬ 
dice”. 

O Meddisk permite o arquivo 
do histórico clínico de até 500 pa¬ 
cientes; emite, via impressora, o 
recibo dos serviços já prestados, 
acompanhado do nome e CRM do 
médico (para efeito do IR); fornece 
ao profissional o mapa completo 
dos recebimentos e a contabilidade 
geral do estabelecimento. O pro¬ 
grama ainda permite a inclusão de 
novos pacientes, possibilitando a 
correção de dados a qualquer mo¬ 
mento. O usuário pode encontrar o 
Meddisk na própria ENG ou nos 
revendedores Prológica ao preço de 
35 ORTN’s. 

Para a área odontológica, Álva¬ 
ro e Rogério estão desenvolvendo o 
Odontodisk, uma variação do Med¬ 
disk. Capaz de fornecer os dados 
cadastrais e o histórico clínico de 


até 1.000 clientes, o Odontodisk se¬ 
rá lançado comercialmente no mês 
de junho. De acordo com os dois 
analistas da ENG, a casa também 
deverá, nos próximos meses, come¬ 
çar a desenvolver aplicativos para 
as áreas financeira e agrícola, para 
os quais já estão sendo feitos estu¬ 
dos de mercado. 

Treinamento e Assessoria 

Na área de treinamento de pes¬ 
soal, a ENG oferece cursos de Basic 
(28 horas-aula), Assembler (40 ho- 
ras-aula) e CP/M, interna e externa¬ 
mente, em empresas e colégios de 
1 ° e 2 ° graus. 

Segundo informações de Alber¬ 
to Fernandes, responsável pela 
área, nas escolas o objetivo funda¬ 
mental da empresa é encaixar o 
curso de Basic (o único ministrado 
em Colégios) dentro do currículo 
escolar. Dessa maneira, os progra¬ 
mas que são apresentados aos alu¬ 


nos se referem sempre às matérias 
que estão sendo cursadas. Para es¬ 
tes cursos a ENG fornece todo o 
material didático além dos equipa¬ 
mentos (microcomputadores CP 
200 ). 

Complementando os serviços 
prestados pela empresa, a equipe 
da ENG presta assessoria comer¬ 
cial às empresas e escolas que se 
interessem, antes ou depois dos 
cursos, pela instalação de um cen¬ 
tro de computação. De acordo com 
Henry James Salomon, diretor do 
setor, a ENG, através de uma corre¬ 
ta avaliação das necessidades dos 
usuários e estudo detalhado do 
mercado, comercializa microcom¬ 
putadores e periféricos, chegando 
se preciso a desenvolver o software 
para o usuário. 

O endereço da ENG Comércio 
de Computadores é av. Paulista, 
1159, 6 o andar, cj. 611, tel.: (011) 
284-1218. Ref M 437 
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Programa 

do 

Usuário 


Simples e eficiente, este aplicativo para o 
CP 300 e CP 500 foi desenvolvido pelo sr. 
Giuliano Occhini, de Atibaia (SP),, 63 anos, 
administrador de empresas e leitor de Geração 
Prológica. 

Ao iniciar o Mala Direta, será exibido na 
tela o seletor geral com as funções: cadastra- 
mento, consulta, impressão e sair do progra¬ 
ma.Para usar a primeira função, ou seja: cadas- 
tramento, digite 1 e pressione ENTER (aja do 
mesmo modo com as outras funções, teclando 
2, 3 e 4). Será necessário que você forneça o 


número da primeira e da última etiqueta a ser 
digitada. A seguir, será visualizada a tela que 
contém os campos a serem preenchidos para o 
cadastramento do cliente. Este aplicativo pos¬ 
sibilita a alteração dos campos ao final de 
cada cadastramento. 

A segunda opção permite que sejam exibi¬ 
dos no vídeo os dados de um determinado 
cadastro. Para isto basta que você digite o 
número da etiqueta desejada e pressione EN¬ 
TER: Com a terceira função é possível impri¬ 
mir qualquer quantidade de etiquetas. R e f. p 426 


Modelo: CP 500 
48 K RAM 


10 ******************************* 
20 MRLfl - DIRETR * 

30 * PROGRRMR Dü USURRIÜ * 

AO * CP - 500 * 

50 "******************************* 
60 CLERR 1000 

70 OPEN "R",1,"ETIQUETR/DRT",152 
30 FIELD 1,30 RS N$,30 RS E$,30 RS C 
$,30 RS D$,30 RS P$,2 RS R$ 

90 CLS:PRINTÔ6,"*********** MfiLR DIR 
ETfl - SELECIONAR OPCRO ***********" 
100 PRINT@6A*2+10,"CRDRSTRRMENT0 -1" 
110 PRINT@6A*A+10,"CONSULTA -2" 

120 PRINT@6A*6+10,"IMPRESRO -3" 

130 PRINT@6A*S+10,"FIM -A" 

1A0 PRINT@6A*12+20,"DIGITE SUA OPCRO 
: : INPUT R 

150 ON R GOSUB 170 ,A30 ,530 ,700 

160 GOTO 60 

170 CLS:INPUT"PRIMEIRA ETIQUETA R CR 
DRSTRRR: ";C7. 

ISO INPUT"ULTIMR ETIQUETA fl CRDRDRST 
RflR: " ; D7. 

190 FOR I7.=C7.T0D7. 

200 CLS 

210 PRINTQ6,"****************MRLR Dl 
RETR-CRDRSTRRMENTO****************" 
220 PRINT@6A*2,"DIGITE NOME : " 
230 PRINT@6A*A,"DIGITE ENDEREÇO:" 

2A0 PRINT@6A*6,"DIGITE CIDRDE :" 

250 PRINT@6A*S,"DIGITE CEP s" 

260 PRINT@6A*10,"DIGITE PRIS :" 
270 PRINT@6A*2+20,"";:INPUT Nl$ 


230 PRINT@6A*A+20,"";:INPUT El$ 

290 PRINT@6A*6+20,INPUT CIi$ 

300 PRINT@6A*3+20,"";:INPUT CEP1$ 

310 PRINT@6A*10+20,INPUT PRI51$ 
320 PRINT@6A*12+10,"DRDOS CORRETOS S 
/N? ";:INPUT B$ 

330 IF B$="N" THEN 200 
3AO LSET N$=N1$ 

350 LSET E$=E1$ 

360 LSET C$=CI1$ 

370 LSET D$=CEP1$ 

380 LSET P$=PRIS1$ 

390 LSET R$=MKI$(I7.) 

AOO PUT 1,17. 

AIO NEXT 
A20 RETURN 

A30 CLS:PRINT@68, "****************MR 
LR DIRETR - CONSULTA**************** 

II 

AAO PRINT©6A*3,"DIGITE 0 NUMERO Dfl E 
TIQUETR R CONSULTAR: INPUT G7. 

A50 GET 1, G7. 

A60 PRINT@6A*5,"NOME :";N$ 

A 70 PRINT@6A*7,"ENDEREÇO : " ;E$ 

A80 PRINT@6A*9,"CIDRDE :";C$ 

A90 PRINT@6A*11,"CEP :";D$ 

500 PRINT©6A*13,"PAIS :";P$ 

510 PRINT@6A*15,"":INPUT"DESEJR CONS 
ULTRR MRIS ETIQUETRS7S/N:";G$:CLS 
520 IF G$="S" THEN A30 ELSE 90 
530 CLS:PRINT@ 1 , "****************Mqi_ 

R DIRETR - IMPRESRO DE ETIQUETAS**** 
************* 


5A0 PRINT@6A*6+10,"fl PARTIR DE QURL 
ETIQUETA QUER IMPRIMIR? " ; : INPUTC7. 
550 PRINT@6A*8+10,"QURL 0 NR. DR ULT 
IMA ETIQUETA R IMPRIMIR?" ;: INPUTD7. 
560 FOR I7.=C7. TO D7. 

570 GET 1,17. 

530 LPRINT N$;TAB(33)N$ 

590 LPRINT E$;TRB(33)E$ 

600 LPRINT C$;TRB(33)C$ 

610 LPRINT D$;TRB(33)D$ 

620 LPRINT P$;TRB(33)P$ 

630 LPRINT "00"CVI (R$) 

6 AO FOR X=1 TO 5 

650 LPRINT 

660 NEXT X 

670 NEXT 

630 CLOSE 

690 RETURN 

700 CLOSE:END 


ERRATA Geração Prológica 3 

No programa Adição e Subtração, pág. 
15, GP 3 , deve ser efetuada a seguinte 
alteração: 

250IF Y AND 6<fl THEN GOTO 290 
No artigo de Ivanildo Miranda, Interface 
RS 232C, GP , pág. 13, 6 o parágrafo, 3 o 
linha, onde se lê "paralisar o dado recebido", 
leia-se "armazenar o dado recebido" 
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ÇTI: Um 

Órgão a 

Serviço da 

/ 

Tecnologia 

Nacional 

Indução e apoio à introdução 
das tecnologias de informática no 
processo produtivo; incentivo e 
coordenação da pesquisa científica 
em centros universitários, visando 
ao trabalho conjunto Universida¬ 
de/empresas; desenvolvimento de 
protótipos que atendam às necessi¬ 
dades da indústria nacional; e o 
acompanhamento dos programas 
de nacionalização dos produtos do 
setor. Estes são os objetivos bási¬ 
cos do Centro Tecnológico para a 
Informática, segundo seu diretor- 
geral, José Rubens Dória Porto. 

Criado em dezembro de 1982, 
através de decreto presidencial, o 
CTI é composto por quatro institu¬ 
tos: Microeletrônica e Automação, 
em funcionamento desde 1983, e 
Computação e Instrumentação, re- 
cém-inaugurados. Microeletrônica 
e Automação já possuem uma série 
de contratos junto a empresas de 
alumínio, transportes, siderurgia, 
química, sendo que em fevereiro o 
órgão entregou 20 mil circuitos in¬ 
tegrados à Erikson do Brasil. 

“Junto ao CTI”, afirma Dória 
Porto, “são realizados basicamente 
dois tipos de contratos: para desen¬ 
volvimento de tecnologias associa¬ 
das à área de engenharia e outros 
contratos que correspondem a de¬ 
terminados serviços, como por 
exemplo o encapsulamento em ce¬ 
râmica e teste de circuitos integra¬ 
dos, que não são prestados por ne- 
nhumà empresa do País”. 

Computação e 
Instrumentação 

Tanto no Instituto de Compu¬ 
tação quanto no de Instrumenta¬ 


ção, que começaram a ser monta¬ 
dos em janeiro deste ano, já exis¬ 
tem alguns projetos em andamen¬ 
to. Um desses projetos, dentro do 
Instituto de Computação, é o Mi- 
cromed, a ser instalado em Brasí¬ 
lia, que facilitará o atendimento 
em postos de saúde. “O que nós 
estamos fazendo a nível de Micro- 
med — que talvez venha a transfor¬ 
mar a medicina curativa em pre¬ 
ventiva — é elaborar o projeto bási¬ 
co do sistema”, garante Dória Por¬ 
to. “Isto feito”, prossegue, “realiza¬ 
remos, através de uma concorrên¬ 
cia, a chamada de software-houses 
nacionais para elaborarem aplica¬ 
tivos, dentro da programação por 
nós desenvolvida. Junto com as 
entidades financiadoras do projeto 
(Fipec do Banco do Brasil), com¬ 
praremos o software que passará a 
ser de nossa propriedade. Depen¬ 
dendo de seu sucesso, esse projeto 
poderá inclusive abrir perspectivas 
de mercado para os fabricantes na¬ 
cionais de equipamentos”. 

De acordo com Dória Porto 
existem certos projetos dentro do 
órgão que vão propiciar uma inte¬ 
gração a nível dos institutos, como 
é o caso do projeto encomendado 
pela Empresa Brasileira de Cor¬ 
reios e Telégrafos, para transmis¬ 
são de fac-similes. Para o diretor- 
geral do CTI essa interação dos 
institutos vai acabar refletindo nu¬ 
ma integração de empresas, pois 
quanto mais a tecnologia começar 
a ser uniforme e servir a várias 


aplicações, a tendência é descobrir 
soluções que servem a várias áreas. 

Universidade 

Com relação às universidades, 
o CTI tem atualmente convênio 
com a Universidade Federal de 
Campinas, a Universidade Federal 
de Minas Gerais e um convênio em 
estudo junto à PUC do Rio de Ja¬ 
neiro. “Uma das coisas que esta¬ 
mos fazendo é, dentro dos projetos 
que desenvolvemos, recorrer ao 
pessoal das universidades, por for¬ 
ça da competência que eles têm em 
determinados segmentos. Nós sem¬ 
pre repassamos parte do projeto 
para a Universidade, remunerando- 
a, usando seu pessoal como consul¬ 
tores”, lembra Dória Porto. 

Uma outra forma do órgão tra¬ 
balhar com as universidades é atra¬ 
vés de uma ação coordenada entre 
os vários laboratórios universitá¬ 
rios na busca de otimizar a obten¬ 
ção de determinadas tecnologias, 
além da troca de bens e da utiliza¬ 
ção de equipamentos entre o CTI e 
essas instituições. 

Este ano, o Centro Tecnológico 
para a Informática deverá consoli¬ 
dar a estrutura de seus quatro ins¬ 
titutos, cumprindo os compromis¬ 
sos assumidos através dos diversos 
contratos. Além disso, o órgão de¬ 
verá engajar-se numa maior ativi¬ 
dade de pesquisa e desenvolvimen¬ 
to junto às universidades e ativar 
intensamente a cooperação com 
instituições de pesquisa e desen¬ 
volvimento internacionais. Ref m 438 
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BASIC PARA CRIANÇAS 
Volume 2 

Michael P. Zabinski 


No mesmo estilo leve e descontraído do 
volume I, o Dr. M. P. Zabinski continua o seu 
excelente curso de BASIC para jovens. Neste 
livro ele introduz novos conceitos e 
desenvolve os já apresentados no volume 
anterior. Entre os novos tópicos estão o uso 
das sub-rotinas, a animação de figuras na 
tela, as operações lógicas, o acesso direto 
à memória (PEEK e POKE) e vários outros 
conceitos avançados de programação. 
Tudo muito bem explicado e acompanhado 
de dicas, exercícios, brincadeiras e desafios 
que estimulam os jovens a praticar os novos 
conhecimentos e assim dominar uma 
técnica indispensável aos homens do futuro. 
O livro se baseia na linguagem BASIC Nível II 
do TRS-80, uma das mais populares em todo 
o mundo. Seus exercícios podem ser 
executados por micros nacionais como o 
CP 300, CP 500, D 8000, DGT 100, e 
compatíveis. / 


APLICAÇÕES 
PARA O SEU TRS-80 * 

Howard Berenbon 


Finalmente em português, um livro só de 
programas. Pelo preço de uma fita 
cassete você adquire 29 aplicações 
diferentes para seu computador, desde 
os programas profissionais como um guia 
para compra de imóveis, até os jogos 
educativos. Todos muito bem explicados, 
incluindo amostras de sua operação, 
para que você possa entendê-los e até 
mesmo alterã-los de acordo com suas 
necessidades e preferências, tornando-os 

personalizados. 
Os programas estão escritos em BASIC 
Níveis I e II, podendo rociar em qualquer 
equipamento compatível com os TRS-80 
Modelo I e III (Prológica, Dismac, Digitus, 

Sysdata, etc.) 


TÍTULOS DA "HOWARD W. SAMS 


ADQUIRA-0 NA SUA LIVRARIA DE CONFIANÇA 0U PREENCHENDO 0 CUPOM ABAIXO 


Em anexo estou remetendo a importância de Cr$_ 

Em Cheque N.°_ cl Banco_Ou Vale Postal 

N.°;_(enviar à Agência Central SP) para pagamento do/s livro/s 

(assinalar) 

□ BASIC PARA CRIANÇAS - Volume 1 

□ BASIC PARA CRIANÇAS - Volume 2 

□ APLICAÇÕES PARA O SEU TRS-80 
que me sera/ão remetido/s pelo correio. 

Cheque ou Vale Postal, pagável em São Paulo, a favor de: 

EDITELE Editora Técnica Eletrônica Ltda. 
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NOVO CP 300 PROLÓGICA. 


0pequeno 
grande micra 

Agora, na hora de escolher entre um 
microcomputador pessoal simples, de fácil* 
manejo e um sofisticado microcomputador 
profissional, você pode ficar com os dois. 

Porque chegou o novo CP 300 Prológica. 

0 novo CP 300 tem preço de 
microcomputador pequeno. Mas memória 
de microcomputador grande. 

Ele já nasceu com 64 
kbytes de memória 
interna com 
possibilidade de 




Compatível com 
programas em fita 
cassete ou em disco. 


'i 




Pode ser ligado ao seu ^aparelho de TV, da 
mesma forma que no terminal de vídeo 
de uma grande empresa. 

Com o CP 300 você pode 
fazer conexões telefônicas 
para coleta de dados, 
se utilizar 
de uma 
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Pode ser ligado 
a um televisor'comum 
ou a um sofisticado 
terminal de vídeo. 


expansão de me.mó- 

Pode ser ria externa P ara ata 

acoplado a uma quase 1 megabyte, 

impressora. £ { em um p ro fissÍOnal, 

que dá ao CP 300 uma versatilidade incrível. 
Ele pode ser utilizado com programas de 
fita cassete, da mesma maneira que com 
programas em disco. 


64 K 


O único na sua faixa que já 
nasce com 64 kbytes de memória. 


impressora 

e ainda dispor de todos 
os programas existentes 
Permite para O CP 500 OU 0 
teSica 0 TRS-80 americano. E o que é melhor: 

’ você estará apto a operar qualquer 
outro sistema de microcomputador. 

Nenhum outro microcomputador pessoal 
na sua faixa tem tantas possibilidades de 
expansão ou desempenho igual. 

CP 300 Prológica. 

Os outros não mmm pROLOGICA 

fazem O Que ele faz, microcomputadores 

pelo preço que ■■■ 

ele cobra. Av. Eng 0 Luis Carlos Berrini, 1168 - SP 
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